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Fortran IV 


This publication contains the language specifications, 
program specifications, and operating procedures for 
the Fortran IV programming system for ibm 1401, 
1440, and 1460. In this publication, the term Fortran 
system refers to 1401/1440/1460 Fortran IV , program 
numbers 1401-FO-051 (Disk Resident System) or 1401- 
FO-052 (Tape Resident System). 

This publication is divided into three major sections, 
language specifications, program specifications , and 
operating procedures. 

The language specifications section describes the 
coding of a Fortran program. The content of this sec¬ 
tion is presented with the assumption that the pro¬ 
grammer is familiar with the information in the Fortran 
General Information Manual , Form F28-8074. 

The program specifications section describes the 
Fortran system. Included in the section are such topics 
as a description of the System Control Program (the 
controlling element of the Fortran system), a descrip¬ 
tion of the Fortran Processor Program , and a detailed 
description of the results of system operations. Al¬ 
though this section is directed primarily to the pro¬ 
grammer, the machine operator should review the 
section for an understanding of the system. 

The third section, operating procedures, contains 
such topics as preparing processor jobs, changing file 
assignments for processor jobs, and running processor 
jobs. The last part of the section outlines the proce¬ 
dures to follow in building a Fortran system. For the 
convenience of both programmer and machine op¬ 
erator, all control cards are summarized in Appendix I. 

While the third section is directed primarily to the 
machine operator, it is recommended that the pro¬ 
grammer review the content of the complete section. 
The programmer should particularly note the parts of 
the section dealing with preparing processor jobs and 
changing file assignments. 

Related Information 

The following Systems Reference Library publica¬ 
tions contain additional information relating to the use 
of the Fortran system. It is recommended that these 
publications be available to the user for reference 
purposes. 

Fortran General Information Manual, Form F28- 
8074. 

Disk Utility Programs Specifications for IBM 1401, 
1440, and 1460 (with 1301 and 1311), Form C24-1484. 


Disk Utility Programs Operating Procedures for 
IBM 1401 and 1460 (with 1301 and 1311), Form C24- 
3105, or Disk Utility Programs Operating Procedures 
for IBM 1440 (with 1301 and 1311), Form C24-3121. 

Definitions of Key Terms 

In order to clarify the meaning of special terms when 
used in this publication, the following definitions are 
given. Standard terms are defined in Glossary of In¬ 
formation Processing, Form C20-8089. 

Batched Files. Logical files whose contents represent 
one or more sequential sets of input to or output 
from the Fortran system. 

Card Boot. A card deck, supplied as part of the Fortran 
system program deck, that is used to start system 
operations. 

Compiler. The program that translates Fortran sym¬ 
bolic statements directly into relocatable machine 
language. This process is called a compilation. 

Job. An operation or sequence of operations that are 
to be performed by the Fortran system. 

Logical Files. Input/output devices and/or areas that 
are used by the Fortran system. 

Object-time. A term describing those elements or proc¬ 
esses related to the execution of a machine-language 
object program. 

Operation. A basic unit of work to be performed by 
one of the components of the system. 

Stack. A set of one or more jobs that is to be proc¬ 
essed during the same machine run. 

System. The set of programs made up of the elements 
required for compiling and/or executing user-pro¬ 
grams. 

[ ] Brackets contain an option that may be chosen. 
Braces contain options, one of which must be 
chosen. 

Machine Requirements 

To process a Fortran source program, the following 
minimum machine configurations are specified. 

An ibm 1401 system with: 

12,000 positions of core storage 
Advanced-Programming feature 
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High-Low-Equal-Compare feature 
One ibm 1311 Disk Storage Drive, or four ibm 729 
Magnetic Tape Units, or four ibm 7330 Magnetic 
Tape Units, or a combination of four ibm 729 
Magnetic Tape Units and ibm 7330 Magnetic 
Tape Units 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

An ibm 1440 system with: 

12,000 positions of core storage 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive 
One ibm 1442 Card Reader 
One ibm 1443 Printer 

An ibm 1460 system with: 

12,000 positions of core storage 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or four ibm 729 Magnetic Tape 
Units, or four ibm 7330 Magnetic Tape Units, or a 
combination of four ibm 729 Magnetic Tape Units 
and ibm 7330 Magnetic Tape Units 
One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

To load and execute object programs generated by 
the Fortran system, the following minimum machine 
requirements are specified. 

An ibm 1401 system with: 

12,000 positions of core storage (or more if required 
by the object program) 

Advanced-Programming feature 
High-Low-Equal-Compare feature 
One ibm 1311 Disk Storage Drive, or one ibm 729 
Magnetic Tape Unit, or one ibm 7330 Magnetic 
Tape Unit (for residence of the Fortran system, 
including the library of the relocatable subpro¬ 
grams) 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously 
required), an ibm 1311 Disk Storage Drive (may 
be the same as that required for system residence), 
an ibm 729 Magnetic Tape Unit (must not be the 
same unit as that required for system residence), 
or an ibm 7330 Magnetic Tape Unit (must not be 


the same unit as that required for system resi¬ 
dence) 

Additional input/output devices as required by the 
object program 

An ibm 1440 system with: 

12,000 positions of core storage (or more if required 
by the object program) 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive (for residence of the Fortran sys¬ 
tem, including the library of the relocatable sub¬ 
programs) 

One ibm 1442 Card Reader 
One ibm 1443 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1442 Card Reader (the same as previously re¬ 
quired), an ibm 1301 Disk Storage or an ibm 1311 
Disk Storage Drive (may be the same as that re¬ 
quired for system residence) 

Additional input/output devices as required by the 
object program 

An ibm 1460 system with: 

12,000 positions of core storage (or more if required 
by the object program) 
Indexing-and-Store-Address-Register feature 
One ibm 1301 Disk Storage, or one ibm 1311 Disk 
Storage Drive, or one ibm 729 Magnetic Tape 
Unit, or one ibm 7330 Magnetic Tape Unit (for 
residence of the Fortran system, including the li¬ 
brary of the relocatable subprograms) 

One ibm 1402 Card Read-Punch 
One ibm 1403 Printer 

Sense switches, if required by the object program 
A program loading device, which could be an ibm 
1402 Card Read-Punch (the same as previously re¬ 
quired), or an ibm 1301 Disk Storage or an ibm 
1311 Disk Storage Drive (may be the same as that 
required for system residence), or an ibm 729 Mag¬ 
netic Tape Unit (must not be the same unit as that 
required for system residence), or an ibm 7330 
Magnetic Tape Unit (must not be the same unit 
as that required for system residence) 

Additional input/output devices as required by the 
object program 

The Fortran system can use the following devices, 
if available. 

ibm 1444 Card Punch 

ibm 1447 Console without a buffer feature 
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would transfer the first record with the specification 
12,3E 12.4, the second record with the specification 
2F10.3,3F9.4, and all remaining records with the speci¬ 
fication 10F12.4. The repetition starts at the last left 
parenthesis, including a repeater, if present. 

If data items remain to be transferred after the for¬ 
mat specification has been completely interpreted, the 
specification repeats after the last left parenthesis. 
Group repetition applies again if it is present. Consider 
this example. 

FORMAT(3E10.3,2(I2,2F12.4,D28.17)) 

If more items are to be transferred after this format 
specification has been completely used, the specifica¬ 
tion repeats with 12 after the last left parenthesis. The 2 
preceding the parenthesis, indicating group repetition, 
applies again. 

Carriage Control 

Carriage control characters must appear in the first po¬ 
sition of the output record if the record is to be printed. 
The valid characters used to achieve the desired results 
follow. 

Character Result 

blank No space before printing, that is, single space 

printing 

0 One space before printing, that is, double 

space printing 

1-9 Skip to channel 1-9 before printing as in¬ 

dicated 

The printer carriage will space to the next line im¬ 
mediately following each print operation. The control 
character does not appear in the printed record. 

The carriage control character is also in output tape 
or disk records that are to be used for off-line tape- or 
disk-to-printer operations. 

The carriage control character can be provided by a 
lHx as the first field specification of a format state¬ 
ment, where x is the carriage control character. For ex¬ 
ample, the field specification 1H6 causes a 6 to be in¬ 
serted in the high-order position of the output record. 
This in turn causes the printer carriage to skip to chan¬ 
nel 6 before printing. 

When alphameric text is specified for the high-order 
field of an output record, the carriage control character 
can be included in the alphameric field specification. 
For example, if X SQUARED is to occupy the high- 
order position of an output record, the specification 
could be HH6XbSQUAREDb. The specification 11H6 
XbSQUAREDb causes the printer carriage to skip to 
channel 6 before printing the record. This specifica¬ 
tion could also be written !H6,10HXbSQUAREDb. 


FORMAT Statements Read In at Object Time 

Fortran can accept a variable format address. This 
permits the specification of a format for an I/O list 
at object time. In order that this be accomplished, two 
factors must be taken into account. 

First, the name of the variable format specification 
must appear in a dimension statement, even if the 
array size is only 1. 

Second, the format read in at object time under 
A-conversion must take the same form as a source pro¬ 
gram format statement, except that the word format 
is omitted. The variable format begins with a left pa¬ 
renthesis and ends with a right parenthesis. 

Consider this example. A, B, and array C are con¬ 
verted and stored according to the format specifica¬ 
tions that are read into the array fmt at object time. 

DIMENSION FMT (12) 

1 FORMAT (8A10) 

READ (1, 1) (FMT (I), I = 1, 8) 

READ (I, FMT) A, B, (C (I), I = 1, 5) 

Assume that the first data card containing the format 
statement is of the form 

(b2F10.8/b(E10.2))bb . . . 

This implies that (b2F10.8/b will be stored in fmt(1) 
and (E10.2))bb will be stored in fmt(2), assuming 
f + 2 = 10. The remaining characters will be stored in 
fmt(3) .... This further implies that A and B will be 
read according to the F10.8 format specification and 
C(l),. . ., C(5) will be read according to the E10.2 
format specification. 

Edited Input Data 

Edited input data to an object program is contained in 
records that conform to the following specifications: 

1. The data must correspond in order, type, and field 
width to the field specifications in the format state¬ 
ment. Reading of data starts with the first character 
position. 

2. Plus signs are indicated by a blank or a preceding + 
(12-zone punch). Minus signs are indicated by a 
preceding — (11-zone punch). Signs are not indi¬ 
cated over the units position of the field. 

3. Blanks in numeric fields are regarded as zeros. 

4. Numbers for E- and F-conversion can contain any 
number of digits, but only the high-order f digits 
will be retained. The number is rounded to f digits 
of accuracy. The absolute value of the number must 
be between the limits 10 100 and (1 — 1CM) X 10", 
or be zero. Numbers for I-conversion must be right 
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justified (trailing blanks are regarded as zeros) and 
can contain any number of digits, but only the low- 
order k digits are retained. 

5. Numbers for E-conversion need not have four col¬ 
umns devoted to the exponent field. The start of the 
exponent field must be marked by an E, or if the E 
is omitted, by a + or — (not a blank). Valid forms 
for the exponent field are: 

E+02, Eb02, Eb2, E+2, E2, +02, +2, E-22, E-2, -2. 

6. Numbers for E- and F-conversion need not have the 
decimal point punched. The format specification 
will supply the required decimal point. For exam¬ 
ple, the number —09321+2 with the specification 
E12.4 will be treated as though the decimal point 
had been punched between the 0 and the 9. If a 
decimal point is punched, its position overrides the 
position indicated in the format specification. 

7. A 7-8 punch in column one indicates an immediate 
return to the System Control Program. 


Unedited Data 

Unedited data may be stored on a disk unit or on mag¬ 
netic tape. The length of each complete unedited rec¬ 
ord is defined by the number of items in the I/O list. 
Unedited records that are read from either a disk unit 
or magnetic tape must have been written by a Fortran 
write statement. That is, the lists for the read and 
write statements must be of the same length. Further, 
the types of the list items must be in a one-to-one cor¬ 
respondence. For example, if the list of the write state¬ 
ment were in the form 

A, B, C 

and the list of the read statement were in the form 
X, Y,Z 

the types of A and X must match, the types of B and 
Y must match, and the types of C and Z must match. 

The information is read or written using the internal 
representation of data values with no conversion. 

The Fortran object-time routines may physically seg¬ 
ment complete records into partial records. 

General Input/Output Statements 

The input/output devices available on the object ma¬ 
chine are the only devices that can be referenced in 
an I/O statement. In particular, a disk unit must be 
available in order to use the define file, find, and the 
random form of the read and write statements. The se¬ 
quential READ and WRITE, ENDFILE, BACKSPACE and RE¬ 
WIND statements can reference a disk unit area only if 


the area has not been referenced in a define file state¬ 
ment. Sequential operations on disk and tape are effec¬ 
tively the same. The tape resident Fortran system can 
compile statements referencing a disk unit, but cannot 
use a disk unit at compile time, at load time, or at exe¬ 
cution time. 


The READ Statement 

The read statement designates input. This statement 
is used to transfer data from input devices to the com¬ 
puter. 

General Forms. 

READ (i, n) list 

READ (i) list 

READ (j ' e, n) list 

READ (j ' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data input. 

n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an input list. 

/ is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
whose data input is to be accessed randomly. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or integer 
expression that specifies a specific record within logical 
file ;. 

Examples. 

READ (5,10) A, B, (D (J), J = 1,10) 

READ (N, 10) K, D (J) 

READ (3) (A(J), J = 1, 10) 

READ (N) (A(J), J = 1, 10) 

READ (6'55, 15) 

READ (I' J, 22) 

READ (I' J + 5) X, Y, Z 

The read (i,n) list statement is used when the logical 
file contains edited information and is assigned to a 
card reader, or to a console printer, or to a tape unit, 
or to a disk unit whose records are to be selected se¬ 
quentially. The statement causes the edited informa¬ 
tion to be read from the logical file i according to 
format statement n. Successive records are read in ac¬ 
cordance with the format statement n until all the 
data items in the I/O list have been read, converted, 
and stored in the location specified by the I/O list. 

The read (i) list statement is used when the logical 
file contains unedited information and is assigned to a 
tape unit or to a disk unit whose records are to be proc¬ 
essed sequentially. The statement causes the unedited 
information to be read from the logical file i starting 
with the record at the current position of the device to 
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which logical file i is assigned. Only one record is read. 
The record is read completely only if the list specifies 
as many variables as the number of values in the rec¬ 
ord. Unedited records that are to be read in by a For¬ 
tran program should have been written by a Fortran 
program that used the same degrees of precision; that 
is, the values of k are the same for both programs, and 
the values of f are the same for both programs. An un¬ 
edited record to be read can be divided into several 
parts by a Fortran I/O routine. 

The read (j' e,n) list statement is used when the 
logical file contains edited information and is assigned 
to a disk unit whose records may be processed ran¬ 
domly. The statement causes the edited information to 
be read according to format statement n starting with 
record e within logical file j. Successive records are 
read in accordance with the format statement n until 
all the data items in the I/O list have been read, con¬ 
verted, and stored in the location specified by the I/O 
list. Each record should have no more characters than 
the maximum specified in the define file statement 
for the logical file /. 

The read (j' e) list statement is used when the logi¬ 
cal file contains unedited information and is assigned to 
a disk unit whose records may be processed randomly. 
The statement causes the unedited information to be 
read from record e within logical file /. Only one record 
is read. The record is read completely only if the list 
specifies as many variables as the number of values in 
the record. Unedited records that are to be read in by a 
Fortran program should have been written by a For¬ 
tran program that used the same degrees of precision; 
that is, the values of k are the same for both programs, 
and the values of f are the same for both programs. To 
contain all of the list data, the record to be read can 
be divided into several parts by a Fortran I/O routine, 
consistent with the description of logical file / in a de¬ 
fine file statement. Each record should have no more 
data values than the maximum specified in the define 
file statement for the logical file /. 

The WRITE Statement 

The write statement designates output. This statement 
is used to transfer data from the computer to output 
devices. 

General Forms. 

WRITE (i,n) list 

WRITE (i) list 

WRITE (j ' e, n) list 

WRITE (i ' e) list 

i is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file to be used for 
data output. 


n is the statement number of a format statement or a real 
array name that describes the data to be transferred. 

list is an output list. 

/ is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that is to be accessed randomly for data output. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or integer 
expression that specifies a specific record within logical 
file /. 

Examples. 

WRITE (6, 10)A, B, (C(J), J = 1,10) 

WRITE (N, 11) K, D (J) 

WRITE (2) (A(J), J = 1, 10) 

WRITE (M) A, B, C 
WRITE (9'55, 15) 

WRITE (I' J, 22) 

WRITE (I' J + 5) 

The write (i,n) list statement is used when the logi¬ 
cal file is to contain edited information and is assigned 
to a card punch, or to a console printer, or to a tape 
unit, or to a disk unit on which records are to be writ¬ 
ten sequentially. The statement causes the edited in¬ 
formation to be output on logical file i according to 
format statement n. Successive records are output in 
accordance with the format statement n until all the 
data items in the I/O list have been converted and 
output. 

The write (i) list statement is used when the logical 
file is to contain unedited information and is assigned 
to a tape unit or to a disk unit on which records are to 
be written sequentially. The statement causes the un¬ 
edited information to be written on logical file i start¬ 
ing with the record at the current position of the device 
to which logical file i is assigned. Only one record is 
written. The record is written completely only if the 
list specifies as many variables as the number of values 
in the record. The record to be written can be divided 
into several parts by a Fortran I/O routine. 

The write (j' e,n) list statement is used when the 
logical file is to contain edited information and is as¬ 
signed to a disk unit on which records are to be written 
randomly. The statement causes the edited information 
to be written according to format statement n starting 
with record e within logical file /. Successive records 
are written in accordance with the format statement 
n until all the data items in the I/O list have been con¬ 
verted and written. Each record should have no more 
characters than the maximum specified in the define 
file statement for the logical file j. 

The write (j' e) list statement is used when the logi¬ 
cal file is to contain unedited information and is as¬ 
signed to a disk unit on which records are to be written 
randomly. The statement causes the unedited informa¬ 
tion to be written starting with record e within logical 
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file /. Only one record is written. The record is written 
completely only if the list specifies as many variables as 
the number of values in the record. To contain all of 
the list data, the record to be written can be divided 
into several parts by a Fortran I/O routine, consistent 
with the description of logical file / in a define file 
statement. Each record should have no more data val¬ 
ues than the maximum specified in the define file 
statement for file /. 


Manipulative Input/Output Statements 

The find, end file, rewind, and backspace statements 
manipulate the logical files that are used by the object 
program. The end file, rewind, and backspace state¬ 
ments must not be used to reference logical files that 
are referenced in a define file statement, or logical 
files that are assigned to a card reader, a card punch, 
or a printer. 

The FIND Statement 

The find statement is used to initiate the positioning of 
the access ipechanism when the logical file is assigned 
to a disk unit. 

General Form, find (j ' e) 

j is an unsigned one digit integer constant or an integer 
variable that specifies a specific logical file on a disk unit 
that contains data input or output to be selected ran¬ 
domly. 

' is a 4-8 punch (equivalent to the @ symbol). 

e is an unsigned integer constant, integer variable, or inte¬ 
ger expression that specifies a specific record within logi¬ 
cal file /. 

The purpose of the find statement is to enable the 
programmer to increase the speed at which the object 
program is executed. The find statement may substan¬ 
tially reduce the seek time required by the next read or 
write statement, provided that it references the same 
record e within logical file /. When the statement is 
used, it starts positioning the access mechanism to lo¬ 
cate the record e within logical file j while permitting 
computation to proceed concurrently. The greater the 
separation between the find statement and the follow¬ 
ing read or write statement, the greater the concurrent 
processing time. 

The END FILE Statement 

General Form, end file i 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 


Examples. 

END FILE 3 
END FILE N 

The end file i statement causes an end-of-file indi¬ 
cation to be written on the logical file i. If the logical 
file is assigned to a tape unit, a tape mark is written. If 
the logical file is assigned to a disk unit, an end-of-file 
record, IbEOF, is written. Either indication is recog¬ 
nized as an end-of-file condition when sensed by a read 
statement, and can be tested by using the standard 
subprogram eof. 

The REWIND Statement 

General Form, rewind i 

i is an unsigned integer constant or an integer variable 
that refers to a specific logical file. 

Examples. 

REWIND 3 
REWIND N 

The rewind i statement causes logical file i to be 
initialized to its starting point. If the logical file is as¬ 
signed to a tape unit, the tape will be rewound. If the 
logical file is assigned to a disk unit, the start address 
of the disk area is obtained. 

The BACKSPACE Statement 

General Form, backspace i 

i is an unsigned integer constant or an integer variable that 
refers to a specific logical file. 

Example. 

BACKSPACE 3 

The backspace i statement causes logical file i to 
“backspace” one complete record. If the logical file 
contains edited records, one record is a complete rec¬ 
ord. If the logical file contains unedited records, there 
can be more than one partial record making up a com¬ 
plete record. 

If the logical file is assigned to a tape unit, the tape is 
physically backspaced. If the logical file is assigned to 
a disk unit, a disk-address is appropriately decreased. 

Input/Output Specification Statement 
The DEFINE FILE Statement 

The define file statement is used for logical files that 
are assigned to disk units such that records may be 
accessed randomly. The tape resident Fortran system 
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Function 

Definition 

Number of 
Arguments 

Name 

Type of 
Argument 

Type of 

Function 

Exponential 

e Arg 

1 

EXP 

Real 

Real 

Natural 

l°9 e (Arg) 

1 

ALOG 

Real 

Real 

logarithm 






Common 

logi 0 (Arg) 

1 

ALOGIO 

Real 

Real 

logarithm 






Arctangent 

arctan (Arg) 

1 

ATAN 

Real 

Real 

Trigonometric 

sin (Arg) 

1 

SIN 

Real 

Real 

sine 






Trigonometric 

cos (Arg) 

1 

COS 

Real 

Real 

cosine 






Square root 

(Arg) ^ 

1 

SORT 

Real 

Real 

Absolute value 

| Ar g| 

1 

ABS 

Reol 

Real 




IABS 

Integer 

Integer 

Truncation 

Sign of Arg 

1 

AINT 

Real 

Real 


applied to largest 


INT 

Real 

Integer 


integer^|Arg| 





Remaindering 

Arg ] (mod Arg 2 ) 

2 

AMOD 

Real 

Real 

(see note below) 



MOD 

Integer 

Integer 

Choosing largest 

Max (Arg p 

^2 

AMAXO 

Integer 

Real 

algebraic value 

Arg2/ • • •) 


AMAX1 

Real 

Real 




MAXO 

Integer 

Integer 




MAX 1 

Real 

Integer 

Choosing smallest 

Min (Arg], 

^2 

AMINO 

Integer 

Real 

algebraic value 

Arg 2 ,...) 


AMIN 1 

Real 

Real 




MINO 

Integer 

Integer 




MINI 

Real 

Integer 

Float 

Conversion from 

1 

FLOAT 

Integer 

Real 


integer to real 





Fix 

Conversion from 

1 

IF IX 

Real 

Integer 


real to integer 





Transfer 

Sign of Arg 2 

2 

SIGN 

Real 

Real 

of sign 

applied to |Arg-j| 


ISIGN 

Integer 

Integer 

Positive 

Arg j-Min 

2 

DIM 

Real 

Real 

difference 

(Arg], Arg 2 ) 


IDIM 

Integer 

Integer 


Note: The function MOD (Arg], Arg 2 ) is defined as Arg ]-|Arg ^/Arg^j Arg 2 where |VJ is the integral part of x. 


Figure 7. Predefined Library Functions 


General Form 

Function 

General Form 

link (3H phase-name) 

phase-name stands for a three-char¬ 
acter phase-name that indicates the 

EOF (m) 

or 

presence of a program in the absolute 
format stored as a phase on the sys¬ 


link (r) 

tem file of the Fortran system. The 
phase (program) is loaded and execu¬ 
tion of the program begins, r, a real 
variable, has an alphameric value 
whose rightmost three characters are 
used as the phase-name. 



Function 

m, a logical variable, is assigned a 
value of .true, if the most recently 
executed read statement sensed an 
end-of-file condition; otherwise, m is 
.false. . An end-of-file condition is 
indicated by IbEOF, a tape mark, or 
the last card. If a read statement is 
issued after the last-card condition, no 
halt occurs; rather, blank input is 
interpreted. 
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Defining Subprograms 

This section describes the function statement that is 
used to name function subprograms, and the subrou¬ 
tine statement that is used to name subroutine sub¬ 
programs. 

The FUNCTION Statement 

The function statement is used to name function 
subprograms and must be the first statement of a func¬ 
tion subprogram. It cannot appear anywhere else in 
the subprogram nor can it appear in a main program. 

General Forms. 

FUNCTION name (a h a 2y ..., a n ) 

REAL FUNCTION name (a h a 2y ..., a n ) 

INTEGER FUNCTION name (a,, a 2y . . . , a n ) 

LOGICAL FUNCTION name (ai , a 2y . .., a n ) 

name is the symbolic name of the single-valued function 
subprogram. 

a h a 2y . . ., a n are the dummy arguments of the function and 
can be nonsubscripted variable names, or array names, 
or the dummy names of subroutine, or other function 
subprograms. There must be at least one argument in 
a function subprogram. 

The type of function can be explicitly stated by the 
inclusion of the word real, integer, or logical before 
the word function, as shown in the preceding formats. 

Examples. 

FUNCTION ARCSIN (RADIAN) 

REAL FUNCTION ROOT (A, B, D) 

INTEGER FUNCTION CONST (ING, SG) 
LOGICAL FUNCTION IFTRU (D, E, F) 

The function subprogram can contain any Fortran 
statement except a subroutine statement or another 
function statement. 

The name of the function must appear at least once 
as a variable on the left side of an arithmetic statement, 
or as an element of an input list. 

Consider the following example. 

FUNCTION CALC (A, B) 


CALC = Z + B 


RETURN 


END 

In this example, the value of calc is computed and its 
value is returned to the calling statement. 
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The function subprograms are logically terminated 
during execution by a return statement. They are 
physically terminated during compilation by an end 
statement. 

The arguments in a function statement can be con¬ 
sidered as dummy variable names that are replaced at 
the time of execution by the actual arguments supplied 
in the function reference in the calling program. The 
actual arguments must correspond in number, order, 
and type with the dummy arguments, and can be con¬ 
stants, nonsubscripted variables, subscripted variables, 
expressions, array names, or other subprogram names. 

If the value of a dummy argument is changed by the 
subprogram, then the actual argument in the calling 
program is also changed. In this case, the actual argu¬ 
ment must be a nonsubscripted variable, a subscripted 
variable, or an array name. The actual argument can¬ 
not be a constant, an expression, or a subprogram 
name. 

Dummy arguments cannot appear in an equiva¬ 
lence statement in the function subprogram. 

Dummy arguments can be subprogram names. The 
corresponding actual arguments in the calling pro¬ 
gram must be names that have appeared in an exter¬ 
nal statement in the calling program. The dummy ar¬ 
guments can also appear in an external statement. 
In this way, a subprogram name used as an actual 
argument in a calling program can be passed to a 
subprogram, which in turn can pass it on to another 
subprogram. 

If a dummy argument is an array name, a dimension 
statement or a common (with dimensions) statement 
for that array must appear in the function subpro¬ 
gram. Further, the corresponding actual argument 
must be a dimensioned array name. 

If a dummy array name appears in a common state¬ 
ment, then the actual argument in the calling program 
must be an array name that appears in the identical 
place in the common statement. 

If a dummy variable name appears in a common 
statement, then the value of the actual argument in the 
calling program replaces the value of the dummy name 
in common immediately upon entry to the function 
subprogram. 

The SUBROUTINE Statement 

The subroutine statement is used to name subroutine 
subprograms and must be the first statement of a sub¬ 
routine subprogram. It cannot appear anywhere else 
in the subprogram nor can it appear in a main program. 


General Form, subroutine name (a u a 2 ,..., a n ) 
name is the name of the subprogram. 

at a 2y ... y a n are the dummy arguments, and can be non¬ 
subscripted variable names, or array names, or the 
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Figure 9. Fortran Source Program 


Item to Check Coding Error 


A-conversion 


Arithmetic expressions 


do parameters 


format statements 


Fortran language 


H-conversion 


Order of source deck 


Program flow 


Statement numbers 


Field width, to, exceeds the word 
size, / + 2. 

Real and integer numbers, both con¬ 
stants and variables, mixed in in¬ 
valid combinations. Often, a real 
constant is written without a de¬ 
cimal point. 

Subscripted integer variable or ex¬ 
pression used as a parameter. 

format specifications and I/O list 
not compatible. 

Misspelled Fortran-language word 
such as equivalent instead of 

EQUIVALENCE. 

Incorrect count for n of nH. 

Specification statements or format 
statements are out of sequence. 

Statement transfers into the range 
of a do. 

Unreferenced statement after a go 
to, return, or stop, end statement 
encountered in program flow. 

Use of same statement number more 
than one time. 


Coding Error 

Absence of a referenced statement 
number. 

function or subroutine statement 
missing at beginning of a sub¬ 
program; return statement missing; 
end statement missing. 

Name is same as a variable name 
used in the program. 

Dummy arguments that are sub¬ 
scripted or equivalenced variables. 

Each subscripted variable, including 
those in lists, does not appear in a 
dimension statement. 

Variables not defined in a read I/O 
list or on the left-hand side of an 
arithmetic statement before being 
used on the right-hand side of an 
arithmetic statement or in a call 
statement. 


Punching the Source Program 

The Fortran statements, prepared as described in 
Writing the Source Program , are normally punched 
into the standard Fortran card, Form 888157, shown 
in Figure 10. 


Item to Check 


Subprograms 


Subprogram names 

subroutine state¬ 
ment arguments 

Subscripted variables 


Variables 
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Figure 10. Fortran Source Card 


Table of Source Proqram Characters 

Set H 






(Fortran Characters) 

Set A 

Card Punches 

The following table indicates the list of characters in 




character Set H that can 

be used in a Fortran source 

J 

J 

11-1 

program. The equivalent characters 

in character Set A 

K 

T 

K 

T 

11-2 

11 T 

are also given. The characters are 

shown in collating 

Li 

M 

-Li 

M 

11-0 

11-4 

sequence. 



N 

N 

11-5 




O 

O 

11-6 

Set H 



P 

P 

11-7 

(Fortran Characters) 

Set A 

Card Punches 

Q 

Q 

11-8 




R 

R 

11-9 

Blank 

Blank 

Blank 

S 

S 

0-2 

• 

• 

12-3-8 

T 

T 

0-3 

) 

□ 

12-4-8 

U 

U 

0-4 

+ 

& 

12 

V 

V 

0-5 

$ 

$ 

11-3-8 

W 

W 

0-6 

* 

* 

11-4-8 

X 

X 

0-7 

— 

— 

11 

Y 

Y 

0-8 

/ 

/ 

0-1 

Z 

Z 

0-9 

> 

y 

0-3-8 

0 

0 

0 

( 

% 

0-4-8 

1 

1 

1 

= 

# 

3-8 

2 

2 

2 

/ 

@ 

4-8 

3 

3 

3 

A 

A 

12-1 

4 

4 

4 

B 

B 

12-2 

5 

5 

5 

C 

C 

12-3 

6 

6 

6 

D 

D 

12-4 

7 

7 

7 

E 

E 

12-5 

8 

8 

8 

F 

F 

12-6 

9 

9 

9 

G 

G 

12-7 




H 

H 

12-8 

Note: The character $ can 

be used in 

Fortran only in an H- 

I 

I 

12-9 

conversion field. 
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disk unit 2. The programmer can inform the machine 
operator of this fact by using a pause card, telling him 
to ready the drive. The message would be: 

PAUSE READY THE PACK ON DISK DRIVE 2. 

COPY Card 

The copy card is applicable only to tape-resident sys¬ 
tems. It is used when the user wants to duplicate the 
system tape. The copy option permits the user to du¬ 
plicate the system file, including the library file if it 
resides on the same tape, on another tape (workI). The 
general format for the copy card is: 

COPY [any message and/or identification ] 

HALT Card 

The halt card indicates to the System Control Pro¬ 
gram that processing has been completed. It is the last 
card of a stack. The content of the halt card is printed 
on the message file. The general format for the halt 
card is: 

HALT [any message and/or identification ] 


Fortran Processor Program 

The Fortran Processor Program is made up of the fol¬ 
lowing: 

Fortran compiler 
Fortran loader 
Fortran library 

The following sections contain a description of the 
various components of the Fortran Processor Program 
and a description of the output from the components, 
to include a description of any diagnostic messages 
that the user may receive as a result of processing 
operations. 


Fortran Compiler 

The Fortran compiler is the processing element of the 
processor program. It operates under control of the 
System Control Program. The compiler translates 
source program statements written in the Fortran lan¬ 
guage into machine-language and interpretative in¬ 
structions in a relocatable format. These instructions 
are then acceptable to the Fortran loader. 


Instructions in the relocatable format contain sym¬ 
bolic and relative addresses. These addresses are rela¬ 
tive to a base address of 001. These symbolic and rela¬ 
tive addresses are converted to actual addresses by the 
Fortran loader. The result of this conversion is an ob¬ 
ject program in the absolute format. 

Relocatable formats permit inclusion of several re¬ 
locatable programs at load time. Inter-program com¬ 
munication is accomplished by the use of symbolic 
names, whose corresponding addresses are substituted 
at load time by the Fortran loader. 

Compiling Variables 

Five compiling variables are available in the compiler. 
These variables include: 

1. Integer size (the number of significant digits) to be 
used at object time. 

2. Real size to be used at object time. 

3. Object machine size. 

4. Availability of the multiply/divide feature. 

5. Main program name. 

These variables can be specified by using compiler op¬ 
tion control cards. A description of each of these vari¬ 
ables follow. 

Integer Size. The assumed integer size is 5. Preceding 
a compilation, the object-time integer size, k , can be 
specified to be any value from 1 through 20. 

Real Size. The assumed real size is 8. Preceding a 
compilation, the object-time real size , /, can be speci¬ 
fied to be any value from 2 through 20, where f is the 
mantissa length. The compiler will reserve / + 2 po¬ 
sitions for each real variable to allow for a 2-digit 
exponent. 

Object Machine Size. The assumed object machine 
size is 11999. If the object machine is greater than 
the assumed value, the highest core storage address 
available at object-time can be specified to serve as a 
base address for common storage. 

Multiply/Divide Feature. The multiply/divide feature 
is assumed to be available in the object machine. If 
the feature is not available, this fact can be specified 
by using a compiler control card. 

Main Program Name. The main program (phase) name 
is assumed to be ///. By using a compiler control 
card, the user can specify a main program (phase) 
name that is three alphameric characters in length. 
The name appears on the first card, disk, or tape 
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record of the relocatable output generated by the 
compiler. If an absolute deck is specified to the 
loader, the three characters are included in the first 
card of the absolute deck. These three characters are 
used to identify the program if it is stored as a phase 
on the system file. 

If the program (phase) is to be stored on the sys¬ 
tem file as a phase that can be called for execution 
at any time, the user must make sure that the three 
characters of the program (phase) name are not the 
same as the name of one of the phases of the System 
Control Program and/or the Fortran processor. The 
names of phases of the Fortran processor are in 
the form nnF, where n is numeric. The names of the 
phases of the System Control Program are in the 
form xxy, where x is alphabetic and y is alphameric. 
Appendix II contains the three-character names of 
the phases of both the System Control Program and 
the Fortran Processor Program. Consult the appen¬ 
dix to ascertain that there is no duplication of phase 
names. 

Fortran Compiler Output 

The output from the Fortran compiler is on the de¬ 
vices as specified in the asgn cards. The list file out¬ 
put, with an assumed assignment to be the printer, is 
composed of a source program listing, a name diction¬ 
ary, and a sequence number dictionary. Any or all of 
these types of output can be omitted by using an out¬ 
put option control card. 

Source Fro gram Listing. A listing of the Fortran source 
program is output by the Fortran compiler. The list¬ 
ing is made up of input card images and a compiler¬ 
generated sequence number. A sequence number 
appears in front of each card except for a comment 
card. An example of a source program listing is 
shown in the sample program included as Appendix 
IV. 

Name Dictionary. A name dictionary is made up of 
the names of simple variables and/or arrays that are 
included in the source program. Associated with 
each variable and/or array is the corresponding 
object-time relocatable address. These addresses are 
relative to a base address of 001. An array-name ad¬ 
dress corresponds to the first element of the array. 
An example of a name dictionary is shown in the 
sample program included as Appendix IV. 

Sequence Number Dictionary . The sequence number 
dictionary is made up of the compiler generated se¬ 
quence numbers and the corresponding object-time 
relocatable addresses. These addresses are relative 
to a base address of 001. The address indicates the 


position of the first character of the transformed 
statement. 

Sequence numbers do not necessarily appear in 
order in the dictionary. Further, a sequence number 
may appear twice in the dictionary. (This could oc¬ 
cur in the case of a read/write statement. A se¬ 
quence number would represent the actual input/ 
output subroutine call; the same sequence number 
would represent the transformed I/O list.) Specifica¬ 
tion statement sequence number addresses appear 
in the dictionary with the addresses equivalent to 
another sequence number address. 

In addition to output on the list file, the user can 
specify, by way of an output asgn card, that a 
punched-card deck in the relocatable format be pro¬ 
duced by the compiler. This card deck is the same 
object program that is located on the loader file in 
mass storage. When a punched-card deck is specified, 
the user has the option of specifying that the relo¬ 
catable object program on the loader file be omitted. 
(This is accomplished by using an asgn omit card.) 
Although it is possible to have the object program in 
the relocatable format on both the loader file and the 
output file, generally only one form of output is 
chosen. 

Fortran Compiler Diagnostics 

Diagnostic information is produced pertaining to the 
intelligibility and consistency of the source program as 
defined by the language specifications section of this 
publication. If an error is detected by the compiler, a 
message is printed on the list file informing the user 
of his error. The message printed on the list file can 
have a maximum of three parts. 

The first part of the message is a flag that indicates 
the severity of the error. A single asterisk (*) indicates 
a diagnostic of a warning type. A single asterisk allows 
compilation to continue and relocatable output is pro¬ 
duced. 

Three asterisks (***) indicate a severe error, and 
compilation is suspended. When this type of error oc¬ 
curs, the message 

COMPILATION SUSPENDED-REMOVE NECESSARY 
CARDS FROM READER 

is printed on the list file. In these instances, control 
is returned to the System Control Program, and a con¬ 
trol card for the next job is read. 

The second part of the message is the sequence num¬ 
ber of the statement in error. In certain cases, the 
sequence number is not included as a part of the mes¬ 
sage. For example, if the name table is being searched 
and an error occurs, no sequence number is included 
in the message. 
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Object Programs 

This section contains a description of the way object 
programs are contained in core storage at the time they 
are executed. Topics discussed in this section include 
storage allocation, the standard loader overlay, sub¬ 
programs, statement expansions, and an explanation of 
the core-storage allocation for the sample program 
contained as Appendix IV. 


Storage Allocation 

In general, a Fortran source program is translated into 
interpretive strings representing arithmetic expressions 
or input/output lists, sequences of tests for logical 
expressions, and subroutine calls with necessary pa¬ 
rameters. 

Each Fortran main program or subprogram is rela¬ 
tive to a relocatable base address of 001, and is ordered 
in the following manner. 

1. Constants common to every program and subpro¬ 
gram 

2. Arrays 

3. Simple variables and constants 

4. Executable statement expansions 

5. format statement and input/output list expansions 

6. Subprogram prologue and epilogue. 

Each real variable requires / + 2 positions of core 
storage. Each integer variable requires k positions of 
core storage. Each logical variable requires one posi¬ 
tion of core storage. 

The number of core-storage positions required for an 
array is determined by multiplying the array dimen¬ 
sions together and multiplying that product by the ap¬ 
propriate word size according to type (real, integer, or 
logical). 

Arithmetic constants appear in core storage with a 
length as written, except leading zeroes are dropped 
and two positions are used for the exponent of real con¬ 
stants. A maximum of / + 2 or k positions are required; 
however, less may be used. Logical constants require 
one position of core storage. 

Arrays and simple variables in common are assigned 
absolute (i.e., non-relocatable) addresses beginning 
with the high core-storage address and proceeding 
with decreasing addresses. No relocatable load cards 
are generated. 

The Fortran loader normally loads a main program 
and possibly several subprograms in the relocatable 
format from the loader file. The first program read 
from the loader file is loaded into core storage begin¬ 
ning at address 5701. Subsequent loading follows the 


preceding program. Any required standard subpro¬ 
gram will then be relocated and loaded following the 
user-programs. A communication and system-constant 
area is prepared from core-storage address 950 to 1010. 

When loading is complete, the loader prepares for 
object-program execution by calling a set of standard 
subprograms, called the standard loader overlay, al¬ 
ways required by the object program. Execution then 
takes place. 

Standard Loader Overlay 

The standard-loader-overlay package occupies core¬ 
storage positions 1010 through 5700 during object- 
program execution. The overlay package includes rou¬ 
tines such as the arithmetic interpreter, object-time 
error messages, and the general read/write service 
routines for initialization, file opening, end-of-file de¬ 
tection, buffer clearing, and unit record (card reader, 
card punch, printer, and console printer) input/output 
processing. Also included are the input/output list 
routine, and several formatting routines to handle for¬ 
mat initialization, FORMAT-list interaction, the slash 
(record delimiter) element, and I, E, and F input and 
output conversions. Additional selectively included 
subroutines are normally required when using a for¬ 
mat statement, as described with character counts in 
the following section. 

Selectively Included Standard Subprograms 

A list of standard subprograms that exist on the li¬ 
brary file in the relocatable format follows. Each is 
relocated and loaded by the loader, if required by the 
user-program(s). Note that some standard subprograms 
require other standard subprograms. The use of cer¬ 
tain capabilities of the Fortran language as well as ex¬ 
plicit subprogram references require the inclusion of 
standard subprograms. The external names that are 
associated with the subprograms appear in the name 
map when the corresponding subprogram is loaded. 


Subprogram 

External 

Name 

Character 

Count 

format left parenthesis 

G. 

22 

format internal right parentheses 

H. 

34 

format scale factor 

L. 

18 

format H-specification 

M. 

153 

format L-specification, requires P. 

N. 

135 

format A-specification, requires P. 

O. 

191 

FORMAT A-, L-, I-, F-, or 

P. 

230 

E-specification 

format final right parenthesis 

Q- 

95 
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External Character 

Subprogram 

Name Count 

Random file processing for find or 

A.' 

\ 

random read/write (disk-resident 

B | 

I 

system only) 

cJ 

> 189 


D | 



E. 

l 


F. 

/ 

Each logical file control word for file 


21 

i, where 0 i 9 



Unedited re ad/write 

l\ 

K.! 

/ 369 (disk) 

| 369 (tape) 

BACKSPACE 

R. 

/ 243 (disk) 
1 163 (tape) 

END FILE 

S. 

j 153 (disk) 
| 86 (tape) 

REWIND 

T. 

( 74 (disk) 

( 47 (tape) 

find (disk-resident system only) 

U. 

177 

Variable file name search 

V. 

106 

Address vector for random file 

X. 

33 

definition vectors, requires V. 
Address vector for sequential file 

Y. 

33 

control words, requires V. 
Object-time format, requires G., 

W. 

847 

H., L., M., N., O., P., and Q. 

Tape I/O with disk-resident system 

Z. 

166 


Subscripting )A \ 

)B r 

U) \ 

V) > 283 

Y)\ 

z)7 


Multiply/divide subroutine 

)C) 



)D> 

471 


)e) 


do, or implied do in I/O list 

)f) 



)G ( 

173 


)h) 


Sense light 

SSLITE] 

W) > 

X) ) 

59 

Sense light test, requires SSLITE 

SLITET 

82 

Sense switch test 

SSWTCH 

83 

End-of-file test 

EOF 

f 44 (disk) 
^ 44 (tape) 

Phase linkage (also required by stop 

LINK 

j 22 (disk) 

statement) 

) 22 (tape) 


Other uses of the Fortran language, as well as ex¬ 
plicit references to standard Fortran functions, cause 


the loading of an 8-character BCE instruction for each 
function, plus the coding for the function itself. The 
external name associated with the BCE instruction is 
of the form ,c , where c represents the alphameric char¬ 
acter unique to each standard function. The complete 
set of required BCE instructions for a particular pro¬ 
gram exists together in core storage after the pro¬ 
gram^) have been loaded by the Fortran loader. The 
external name ,9 appears at the beginning of the BCE 
instructions. 



External Character 

Subprogram 

Name Count 

QUIT — leave interpretive coding for 

$ 

8 

executable coding 

Relational expression testing, includ¬ 

,0 

8 

ing arithmetic if 

,1 

8 


,2 

8 


,3 

8 


,4 

8 


,5 

8 


(0 ' 

j 


(1 | 

1 


(2 ‘ 
(3 / 

> 134 


(4 1 

i 


(5 , 

) 

Absolute value — ABS 

,A 

8 

— IABS 

,B 

8 


(A 

11 

Positive difference — DIM 

,D 

8 

— IDIM 

,v 

8 


(D 

64 

Extreme value — AMAXO, requires ,R 

,E 

8 

and (R 



— AMAX1 

»F 

8 

— MAXO 

,G 

8 

— MAXI, requires ,1 


8 

and (I 

— AMINO, requires ,R 

J 

8 

and (R 



— AMIN1 

,K 

8 

— MINI, requires ,1 

,o 

8 

and (I 



— MINO 

,Y 

8 


(E 

I 


(F 



(G / 

1 


(h( 
(J ( 

> 248 


(K 



(° 



(Y 1 


Truncation — IFIX 

,1 

8 


(I 

129 
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External 

Character 

Subprogram 

Name 

Count 

Float — FLOAT 

,R 

8 


(R 

36 

Remaindering — MOD 

,M 

8 


(M 

88 

— AMOD, requires ,R 

,P 

8 

and (R and ,1 and (I 

(P 

88 

Transfer of sign — ISIGN 

,U 

8 

— SIGN 

,W 

8 


(W 

69 

Truncation to real — AINT, requires (I 

,z 

8 

and (R 

(Z 

28 

Complement compression, required by 

,8 

8 

a subprogram with adjustable di¬ 

(8 

18 

mensions — CMCM, requires sub¬ 



scripting 



Integer exponentiation 

,7 

8 


a 

311 

Power — logarithmic part of real ex¬ 

,6 

8 

ponentiation, requires A) and (L 



Cosine — COS, requires A) and (S 

,C 

8 

Sine — SIN, requires A) 

,s 

8 


(c l 



(S j 

437 

Common logarithm — ALOGIO, re¬ 

,L 

8 

quires A) 

(L 

370 

Natural logarithm — ALOG, requires 

,N 

8 

A) and (L 



Square root — SQRT, requires A) 

,Q 

8 


(Q 

224 

Arctangent — AT AN, requires A) 

,T 

8 


(T 

492 

Exponential — EXP, requires A) 

,X 

8 


(X 

262 


Power series subroutine required by A) 
various transcendental functions B) 

C) 

D) 

E) 

F) 

G) 

H) 

I) 

J) 

K) 

L) 

M) 

N) 

O) 

P) 


Statement Expansions 

The common, equivalence, and type statements do 
not generate object-time characters. These statements 
serve only as information to the compiler. 

The data statement information literals, converted 
to internal notation, appear in the space allocated for 
their respective variables or array elements. Either 
f + 2,k, or one position is used. 

An arithmetic statement defining a numerical value 
is translated into a character string consisting primarily 
of one-character operators and three-character (ad¬ 
dress) operands. References to standard functions re¬ 
quire one character of core storage, plus the inclusion 
of a BCE for the function and the function itself. Sub¬ 
scripted variable references normally require five char¬ 
acters plus six for each dimension and the inclusion of 
the subscript subroutine. 

An arithmetic statement defining a logical value is 
normally translated into a sequence of eight character 
tests on the various logical variables. Arithmetic 
strings, as described in the preceding paragraph, fol¬ 
lowed by a four-character relational test (one-character 
function reference plus a three-character parameter) 
represent a relation. 

A go to statement results in a four-character branch 
instruction. A computed go to results in as many eight- 
character branch instructions as there are statement 
numbers in the computed go to. 

A logical or arithmetic if results in very nearly the 
same object expansion as an arithmetic statement, and 
can be approximated in essentially the same fashion. 

The do statement generates 23 characters, and causes 
the inclusion of the do subroutine. Four characters are 
required after the final executable statement in the 
range of the do. 

The continue statement generates no object char¬ 
acters. 

The pause statement generates either one character 
or five characters, depending upon the absence or pres¬ 
ence of the optional integer constant. 

A stop statement generates eleven object-time char¬ 
acters and causes the inclusion of the link subroutine. 

The end statement generates five object-time char¬ 
acters. 

Input/output lists are translated into a sequence of 
subroutine calls and interpretive strings. The sample 
program shown in Appendix IV gives an example of 
input/output lists. 

A format statement is translated into a sequence of 
subroutine calls with parameters corresponding to the 
format elements used. Additional selectively included 
standard subprograms are normally required. 
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A read or write statement, or one of the manipula¬ 
tive input/output statements is translated to a sub¬ 
routine call with required parameters. Corresponding 


lengths are: 

read/write 19 

find 10 

END FILE 7 

REWIND 7 

BACKSPACE 7 


A standard subprogram is required for each type of 
manipulative input/output statement used. An expres¬ 
sion consisting of something more complex than a 
single non-subscripted variable or constant in a find 
statement, or in the random form of a read or write 
statement, causes the generation of additional charac¬ 
ters, similar to the arithmetic statement. If a variable 
file name is used, ten additional characters are required 
for each reference, as well as two or three standard 
subprograms. 

The define file statement causes the generation of 
seventeen characters for each file defined. The external 
names $i, where 0 i ^ 9, are also generated by the 
define file statement. 

The function and subroutine statements cause gen¬ 
eration of a prologue for the evaluation of parameters 
and array dimension calculations, if required, and an 
epilogue to reset any values required and return con¬ 
trol to the proper place. 

The return statement generates four characters. 

The call statement generates four characters, plus 
three characters for each actual argument. If the actual 
arguments consist of more complicated expressions 
than a single non-subscripted variable, constant, or 
alphameric field, then an expression-evaluation string 
for either arithmetic or logical expressions is also 
generated. 

It was found that twenty-three typical programs had 
statement expansions averaging approximately thirty 
characters per statement. A program containing nu¬ 
merous long format statements had a significantly 
higher average, whereas a program almost entirely 
composed of simple arithmetic statements had a some¬ 
what lower average. In all cases, additional storage was 
required for arrays, variables and constants, and re¬ 
quired subprograms. Thus, the total core-storage re¬ 
quirement above the base loading point of 5700 varied 
considerably, ranging from about 500 characters to 
about 10,000 characters. 


Core-Storage Allocation for the Sample Program 

The discussion in this section refers directly to the 
sample program that is shown as Appendix TV. Core 
storage has been allocated for the object program in 
the following manner. 


Area 


Content 


0-949 

950-1009 

1010-5700 

5701-6201 

5701-5850 

5851-5987 

5988-6201 

6202-7908 

6202-6223 

6224-6506 

6507-6977 

6978-7150 

7151-7198 

7199-7332 

7333-7354 

7355-7388 

7389-7541 

7542-7771 

7772-7866 

7867-7887 

7888-7908 


Resident System Control Program functions 

Communication area, system constants 

Standard loader overlay 

Main program, relocated 

Constants, arrays, variables 

Executable and end statements 

format’s, input/output lists 

Selectively included standard subprograms 

link subroutine, required by stop statement 

Subscripting subroutine 

Multiply/divide subroutine 

do subroutine 

Function branches for relational functions, re¬ 
quired by logical if statement 
Relational expression testing 
format left parenthesis 
format internal right parenthesis 
format H-specification 
format A-, L-, I-, F-, or E-specification 
format final right parenthesis 
File control word for logical file 1 
File control word for logical file 3 


This accounts for all external names appearing in the 
name map, recognizing that the main program name 
is the assumed value ///. 

The statement expansion area occupies 351 charac¬ 
ters, averaging approximately 35 characters per state¬ 
ment. This average includes the end statement, but 
excludes the dimension statement. Note that the for¬ 
mat expansion required considerably more than the 
average number of characters, whereas the arithmetic 
statement, sequence number 004, required less. 

The location and length of each statement expansion 
can be determined by adding the program base loading 
point to the relative addresses shown in the sequence 
number dictionary. The program base loading point for 
the first program that is loaded is 5700. Subsequent 
programs are loaded immediately following the first 
program. Consequently, their base loading points are 
higher than 5700. 
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Operating Procedures 


Jobs 

The Fortran system performs two major operations. 

1. Translates source programs into object programs. 

2. Starts the execution of object programs. 

Because these operations are performed by the Fortran 
processor part of the system, the operations are called 
processor jobs. 

Two other operations, maintaining the Fortran sub¬ 
program library and updating the Fortran system, are 
also considered jobs. Maintaining the Fortran subpro¬ 
gram library is called a library job. Updating the For¬ 
tran system is called an update job. Update jobs are 
described in Updating a Fortran System. 

Under control of the System Control Program, it is 
possible to perform one or more jobs without operator 
intervention. This process is called stack processing. If 
the system resides on disk, or if the system resides on 
tape unit 2, 3, 4, 5, or 6, a stack is always made up of 
the card-boot deck, a system asgn card, the particular 
job(s) to be performed, and a halt card. If the system 
resides on tape unit 1, a stack is made up of the par¬ 
ticular job(s) to be performed and a halt card. (Press¬ 
ing the tape load key serves the same function as the 
card boot and the system asgn card when the system 
tape is on unit 1.) 

In performing a job, the following factors must be 
taken into consideration. 

1. The kind of input for the job. 

2. The use of the logical files. 

3. The machine-operator procedures to be followed. 

The kinds of input for processor jobs and library jobs 
are discussed in the following sections ( Preparing Proc¬ 
essor Jobs and Preparing Library Jobs). 

The general use of logical files is discussed in Logi¬ 
cal Files. 

In most cases, the user does not need to be con¬ 
cerned about the logical files because the Fortran sys¬ 
tem defines the files and assigns them to specific input/ 
output devices. In the description of preparing proc¬ 
essor jobs that follows, any file assignment that the user 
must make is explained. 

The machine-operator procedures to be followed are 
described in Performing Jobs. 


Preparing Processor Jobs 

This section describes each processor job. They are: 

FORTRAN RUN 
LOADER RUN 
PRODUCTION RUN 

Each processor job description includes: 

1. Assumed input device. This entry refers to the de¬ 
vice on which the input is assumed to be located. 
For the 1402, reader 1 means that the cards are 
selected into stacker 1. For the 1442, reader 1 
means unit 1. 

2. Input. This entry refers to the type of input for the 
job. 

3. Assumed output devices. This entry refers to the de¬ 
vice^) on which the output is assumed to be lo¬ 
cated. For the 1403, printer 2 means that 132 print 
positions are available. For the 1443, printer 2 
means that 144 print positions are available. For the 
1402, punch 4 means that the cards are selected into 
stacker 4. For the 1442, punch 1 means unit 1. 

4. Output. This entry refers to the type of output that 
the user always gets as a result of the job, unless 
specified otherwise. 

5. Output options available. This entry refers to the 
type of output the user can get by using output 
option cards. 

6. Required user assignments. This entry describes any 
additional logical file assignments that the user must 
make to perform the job. 

7. Control cards. This entry describes the method of 
punching any required control cards and output op¬ 
tion cards. 

8. Arrangement. This entry references a figure that 
shows the manner of arranging card input for the 
job. 

Notes. 

1. Any logical file assumed assignment can be changed. If the 
user wishes, he can change the assignment by using an 
asgn card. 

2. note and pause cards can be placed between, but not 
within, job decks. 
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FORTRAN RUN 

This is the type of run that translates a source program 
written in the Fortran language into an object program 
in the relocatable format. The output for this run is 
then ready for processing by the Fortran loader. 

Assumed Input Device, input file on reader 1. 

Input. Source program. 

Assumed Output Devices, message file on printer 2; 
list file on printer 2; loader file on 1311 or 1301 
UNIT 0, START 010000, END 012000 Or TAPE UNIT 3. 

Output. 

1. Source-statement diagnostics on the list file, if 
errors are sensed. 

2. Source program listing on the list file, unless an 
output option control card specifies that the listing 
be omitted. 

3. Name dictionary on the list file, unless an output 
option control card specifies that the name diction¬ 
ary be omitted. 

4. Sequence number dictionary on the list file, un¬ 
less an output option control card specifies that the 
sequence number dictionary be omitted. 

5. Object program in the relocatable format on the 
loader file, unless the loader file has been omitted. 

Output Options Available. Object program in the re¬ 
locatable format on the output file. 

Required User Assignments. If the object program is 
to be written on the loader file, no file assignments 
are required. If the user wants the object program 
on the output file, an output asgn card is required. 

Control Cards. 

1. The run card is the only required control card. 
Punch the run card in the following manner. 

Columns Contents 

6-12 FORTRAN 

16-18 RUN 

2. If the object program is to be on the output file, 

an output asgn card is required. This card must pre¬ 

cede the run card. Generally, the only time that the 
user would want to use the output file is when a 
punched card deck in the relocatable format is de¬ 
sired. If this is the case, punch the output asgn card 
in the following manner: 
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Columns Contents 

6-11 OUTPUT 

16-19 ASGN 

21-27 punch n 

If the output file is assigned to punch n, n can be 
0, 4, or 8 for 1402, 1 or 2 for 1442, 3 for 1444. 

If the output file is assigned, the user may wish 
to omit the loader file. If this be the case, a loader 
asgn card is required and must precede the run 
card. Punch the loader asgn card in the following 
manner. 


Columns Contents 


6-11 

16-19 

21-24 


LOADER 

ASGN 

OMIT 


3. The following cards are output option control 
cards and compiler option control cards. They are 
used when any of the options are desired. The op¬ 
tion cards immediately precede the Fortran source 
program in the input file and can be in any order. 
Option control cards are output on the list file. 

a. If the integer size is to differ from the assumed value of 5, 
punch the following card. Note: 01 < nn < 20. 

Columns Contents 

1-8 $ INTEGER 

10-13 size 

15 

17-18 nn 


b. If the real size is to differ from the assumed, value of 8, 
punch the following card. Note: 02 _< nn <_ 20. 

Columns Contents 

1-5 $REAL 

7-10 size 

12 = 

14-15 nn 


c. If the object machine differs from the assumed value of 
11999, punch the following card. Note: 11999 ^ nnnnn 
< 15999. 


Columns 

Contents 

1-7 

$OBJECT 

9-15 

MACHINE 

17-20 

SIZE 

22 

= 

24-28 

nnnnn 


d. If the multiply/divide feature is not present in the ob¬ 
ject machine, punch the following card. (The multiply/ 
divide feature is assumed by the Fortran compiler to be 
available.) 

Columns Contents 

1-3 $NO 

5-12 MULTIPLY 

14-19 DIVIDE 
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when the user specifies that an absolute deck be 
punched as a result of a loader run. 

Note. If the system file resides on tape, the user must 
specify that the phase be inserted after a particular phase 
on the system file. In order that this be accomplished, punch 
the three-character phase name after which the phase is to 
be inserted in columns 21-23 of the updat control card, the 
first card of the absolute deck. (Columns 21-23 of the updat 
card punched by the loader contains the name of the phase 
that is to be inserted and must be changed.) 90F is the name 
of the last phase of the Fortran system. When deleting a 
phase and inserting another phase in its place, it is recom¬ 
mended that these two user-update jobs be performed in two 
separate stacks. 

2. If a phase is to be deleted from the system file, 
punch the following card. 


Columns 

Contents 

6-15 

[any user comments ] 

16-20 

UPDAT 

21-23 

three-character phase name 

24 

comma 

25-30 

DELETE 


In the control card, three-character phase name 
refers to the three-character main program name. 
The phase name appeared in columns 21-23 of the 
absolute deck that was used to insert the phase on 
the system file. 

Arrangement. The arrangement of input cards for a 
user-update job is shown in Figure 21. 

Note. If the system is disk-resident and the capacity of the 
system file is exceeded when a user-update job is performed. 
Halt 629 (unequal address compare) occurs. A phase on the 
system file that is no longer used that is as large or larger than 
the phase to be inserted can be deleted to permit the new phase 
to be inserted in its place. 


Preparing Library Jobs 

Library jobs are associated with the maintenance of 
the Fortran library. The Fortran library is a mass- 
storage file that supports the Fortran loader. The file 
contains a library table (disk-resident systems only) 
and subprograms, such as standard Fortran functions 
and subroutines. 



The three standard library jobs are: 

1. Library build that enables the user to define a li¬ 
brary file. A library-build job, performed when a 
disk-resident Fortran system is built, defines a li¬ 
brary file on the same disk unit as the system file. 
The limits of this library file are 012000 through 
013899. Thus, the assumed assignment is 1311 or 
1301 unit 0, start 012000, end 013900. 

After the library-build job has been performed, 
the library file contains the library table. The li¬ 
brary table is thirty sectors in length. The user can 
enlarge the name table according to his needs. 

If the system is tape resident, the library is already 
built. As a result, the tape user need be concerned 
only with library changes and library listings. 

2. Library listing that enables the user to get a list of 
the library subprograms and/or the names of the 
subprograms that are in the library file. 

3. Library change that enables the user to modify the 
content of a library file. A library-change job, first 
performed when the disk-resident system is built, 
transfers the subprograms to the library file after 
the file has been defined. 

At the completion of a library job (library run) on 
a disk-oriented system, three messages are printed on 
the list file. The messages are: 

END OF LIBRARY RUN 

LIBRARY ASSIGNED nnnnnn TO nnnnnn 

REMAINING SECTORS nnnnnn TO nnnnnn 

In the message, nnnnnn is a disk address. From these 
messages, the user is able to determine the size of the 
present library, and the number of sectors available 
for any additional subprograms that may be added. 

Any subprogram is stored in disk storage one card 
per sector in the move mode. As the input for a li¬ 
brary run must be in card form, the user can deter¬ 
mine whether a subprogram will fit in the library by 
merely counting the cards in the deck output from a 

FORTRAN RUN. 

If the library file is full and the user wants to add a 
new subprogram, one of two steps can be followed. 

1. The user can define and build a new library. 

2. The user can delete an existing subprogram from 
the library file and insert the new subprogram. 
This can be done if the new subprogram will occupy 
the same number or fewer sectors than the old sub¬ 
program. 

For tape-oriented systems, at the completion of a 
library run, the message, 

END OF LIBRARY RUN 
is printed on the list file. 
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Library Build 

Library-build jobs apply only to disk-resident systems. 
Each library-build job defines a library file that con¬ 
tains a name table 30 sectors in length. If a table of 
more (or less) than 30 sectors is required, specify the 
sector number desired in the control card. 

The control cards required for a library-build job 
are: 


Library Listing 

The user can request three types of library listings. 

1. A listing of the names or headers of all the subpro¬ 
grams in the Fortran library. 

2. A listing of the entries in a specific subprogram. 

3. A listing of the entries in every subprogram. 


1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. Punch the asgn card in 
the following manner: 

Columns Contents 

6-12 LIBRARY 

16-19 ASGN 

21-57 1311 unit n, start nnnnnn, end nnnnnn 

or 

1301 unit n, start nnnnnn , end nnnnnn 


For disk, the value n indicates the number of the disk unit, 
and can be 0, 1, 2, 3, or 4; nnnnnn represents a disk ad¬ 
dress. The limits of the library must be supplied. 


2. Punch the required run card in the following man¬ 
ner: 


Columns 

6-12 

16-18 


Contents 

LIBRARY 

RUN 


3. Punch the library-build card in the following man¬ 
ner: 

Columns Contents 

16-20 BUILD 

21-23 [nnn] 


The value nnn is used only when the name table is to differ 
from 030 sectors. 


4. The end card must be the last card of a library- 
build job. Punch the end card in the following man¬ 
ner: 


Columns Contents 

16-18 END 


The arrangement of control cards for a library build 
job is shown in Figure 22. The cards are read from the 
control file. 


END 


£ 


yBUILD [nnn] 


LIBRARY RUN 


/LIBRARY ASGN 
(if required) 


The control cards required for a library-listing job are: 

1. A library asgn card is required if the assignment 
of the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 
manner. 


Columns Contents 

6-12 LIBRARY 

16-18 RUN 

3. One of the following three cards are required for 
the library-listing job. The one that is selected de¬ 
pends upon the type of listing that is required. 

a. If a listing of the headers of all the tape subpro¬ 
grams is required, punch the following card. If a 
listing of the names and disk addresses of all the 
disk subprograms is required, punch the follow¬ 
ing card. The listing is output on the list file. 

Columns Contents 

16-19 LIST 

21-27 HEADERS 

b. If a listing of the entries in a specific subprogram 
is required, punch the following card. The listing 
is output on the list file. 

Columns Contents 

6-11 name 

16-19 list 

name is the six-character name of the specific subprogram 
entries that are required. 

c. If a listing of the entries in every subprogram is 
required, punch the following card. The listing is 
output on the list file. 

Columns Contents 

16-19 LIST 

4. The end card must be the last card of a library¬ 
listing job. Punch the end card in the following 
manner. 

Columns Contents 

16-18 


Figure 22. Library Build 
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END 


t 


L 


A 


LIST 


LIST 


LIST HEADERS 


LIBRARY RUN 


/library ASGN 

(if required) 


Figure 23. Library Listing 


— , v One card is required 


When the system is tape-oriented, the workI file 
is used in conjunction with the library file when a 
subprogram is deleted. Perform a library-copy job 
to transfer the library from the workI file to the 
library file. See Library Copy. 

4. If a subprogram is to be deleted, punch the follow¬ 
ing card. 

Columns Contents 

6-11 name 

16-20 DELET 

name is the six-character name of the subprogram to be 
deleted. 


The arrangement of control cards for a library-list¬ 
ing job is shown in Figure 23. The cards are read from 
the control file. 


Library Change 


Fortran subprograms, supplied by ibm or developed 
by the user, can be added, modified, or deleted. 

ibm provides a change deck whenever IBM-supplied 
standard subprograms should be modified. The change 
deck includes a library run card, inser and/or delet 
cards, an end card, and cards containing the changes 


to be made. 

User-change cards must be in the relocatable for¬ 
mat, the result of processing by a fortran run. In ad¬ 
dition to the change cards, the following control cards 
are required for a library change. 

1. A library asgn is required if the assignment of the 
library file differs from that assumed by the System 
Control Program. See Library Build for the format 
of the asgn card. 


2. The required run card is punched in the following 
manner. 


Columns Contents 

6-12 LIBRARY 

16-18 RUN 


3. If a subprogram is to be inserted, punch the follow¬ 
ing card. 

Columns Contents 

16-20 INSER 


If the system is tape-oriented, the new subpro- 
gram is inserted after the last subprogram in the 

LIBRARY file. 

If the system is disk-oriented, the new subpro¬ 
gram is inserted in any available area in the library 
file. 

If a subprogram by the same name already exists 
in the library file, it is deleted before the new sub¬ 
program is inserted. 


All delet cards must precede all inser cards. 
When the system is tape oriented, the workI file is 
used in conjunction with the library file when a 
subprogram is deleted. Perform a library-copy job 
to transfer the library from the workI file to the 
library file. See Library Copy. 

5. The end card must be the last card of a library- 
change job. Punch the end card in the following 
manner. 


Columns Contents 

16-18 END 

The arrangement of the control cards and the in¬ 
put for a library change is shown in Figure 24. The 
control cards and the input cards are read from the 
control file. 

If the input for a library-change job contains a 
card that is not recognized by the system, a halt oc¬ 
curs. The message 

CARD NOT RECOGNIZED-BYPASS-CONTINUE 

INSERTION 

is printed on the list file. In order to continue proc¬ 
essing, press START. 
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Library Copy 

The library-copy job is applicable only when the li¬ 
brary file resides on tape. This job is normally per¬ 
formed immediately after a library run. 

When a subprogram is inserted in place of a subpro¬ 
gram having the same name on the library file, or 
when a subprogram is deleted from the existing li¬ 
brary, the workI file is used in conjunction with the 
library file. At the completion of the insertion or dele¬ 
tion, the new or revised library is present on the workI 
file. 

To transfer the library to the library file from 
workI, perform a library-copy job. 

The following cards are required for a library-copy 
job. 

1. A library asgn card is required if the assignment of 
the library file differs from that assumed by the 
System Control Program. See Library Build for the 
format of the asgn card. 

2. The required run card is punched in the following 
manner. 

Columns Contents 

6-12 LIBRARY 

16-18 RUN 

3. The required copy card is punched in the following 
manner. 

Columns Contents 

16-19 copy 

4. The end card must be the last card of a library-copy 
job. Punch the end card in the following manner. 

Columns Contents 

16-18 END 

The arrangement of the control cards is shown in 
Figure 25. The cards are read from the control file. 


Changing File Assignments 

Each logical file defined by the Fortran system, with 
the exception of the system file, is assigned to a spe¬ 
cific input/output device by the System Control Pro¬ 
gram. One set of logical file assignments applies to 
compilation (fortran run). A second set of logical file 
assignments applies to execution (loader run and pro¬ 
duction run). These assignments can be temporarily 
changed by using asgn cards. 

Any assignment made by the user remains in effect 
until: 

1. An asgn card is sensed for the particular logical file, 
or 


2. An in it (initialize System Control Program assign¬ 
ments) card is sensed, or 

3. A halt card is sensed, signifying the end of a stack. 


Preparing ASGN Cards 

asgn cards enable the user to change file assignments 
for one or more jobs in a stack. The general format for 
an asgn card is: 


file-name ASGN 


device ) 

OMIT \ 


The file-name is the specific logical file; device is the 
input/output unit and/or area to which the logical file 
is assigned. 

The assumed file assignments and asgn card formats 
relating to specific files are shown in Figure 26. Valid 
device entries are shown in Figure 27. 

asgn cards are coded in the Autocoder format. 
When coding asgn cards, the user must: 

1. Leave blanks between items in the operand field as 
shown in Figure 26. If, for example, the output file 
is to be assigned to disk area 004000 through 004799 
on 1301 unit 1, the user would code the asgn card 
for punching as shown in Figure 28. The end ad¬ 
dress that is coded is the address of the next avail¬ 
able sector, not the address of the last sector to be 
used. 

2. Left-justify entries in the label, operation, and op¬ 
erand fields, as shown in Figure 28. 


File Considerations 

SYSTEM File. If the system file resides on 1311, drive 
0 should be on-line because the System Control Pro¬ 
gram’s assumed assignments are on drive 0. If drive 
0 is not on-line, the user must use asgn cards to 
change the assumed assignments for the library, 
loader, workI, work2, and work3 files. 

CONTROL and INPUT Files. If both the control 
and input files are assigned to a reader, the assign¬ 
ments must be identical. For example, if the system 

|/end 

^ COPY 

^LIBRARY run - 

XlBRARY ASGN - 

(if required) 


Figure 25. Library Copy 
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ASGN Card Formats 

Assumed Assignment 

Remarks 

Label Field 

(Columns 

6-15) 

Operation 

Field 

(Columns 

16-20) 

Operand Field (Columns 21-72) 

Compilation 
(FORTRAN RUN) 

Execution 

(LOADER RUN or PRODUCTION RUN) 


SYSTEM 

ASGN 

( 1311 UNIT n ) 

< 1301 UNIT 0 > 

( TAPE UNIT n ) 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

If the system residence is 1311 or 1301, 
the SYSTEM ASGN card is the only re¬ 
quired ASGN card. It must follow the 
Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are flagged and bypassed. If 
the user desires that the Fortran system 
use less than the number of core 
storage positions available in the pro¬ 
cessor machine, punch a comma in 
column 32 and 12K or 16K beginning 
in column 34. If the system residence 
is tape and the tape unit is 1, neither 
the Card Boot nor the SYSTEM ASGN 
card is required. (Pressing the TAPE 
LOAD key achieves the same purpose as 
the Card Boot and the SYSTEM ASGN 
card.) If the unit is 2, 3, 4, 5, or 6, 
both the Card Boot and the SYSTEM 
ASGN card are required to start 
systems operations. 

CONTROL 

ASGN 

( READER n 1 

(CONSOLE PRINTER/ 

READER 1 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 

( PRINTER n \ 

(CONSOLE PRINTER/ 

PRI NTER 2 

PRINTER 2 

When the MESSAGE file is assigned to 
the CONSOLE PRINTER, carriage 
control characters used with the 1403 or 
1443 printer may appear in the message. 
If the MESSAGE file and the LIST file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. The 
MESSAGE file is equivalent to Fortran 
file 0. 

LIST 

ASGN 

( PRINTER n \ 

\ 1311 UNIT n, START nnnnnn, END nnnnnn 1 
\ 1301 UNIT n, START nnnnnn, END nnnnnn > 
I TAPE UNIT n l 

(OMIT ) 

PRINTER 2 

PRINTER 2 

If the LIST file and the MESSAGE file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. The 
LIST file is equivalent to Fortran 
file 3. 

INPUT 

ASGN 

i READER n j 

11311 UNIT n, START nnnnnn, END nnnnnn ( 

I 1301 UNIT n, START nnnnnn, END nnnnnn ( 
( TAPE UNIT n ' 

READER 1 

READER 1 

If the INPUT file and the CONTROL 
file are assigned to the reader, the 
assignment must be to the same reader. 
The INPUT file is equivalent to 

Fortran file 1 . 

OUTPUT 

ASGN 

/ PUNCH n \ 

\ 1311 UNIT n, START nnnnnn, END nnnnnn 1 
{ 1301 UNIT n, START nnnnnn, END nnnnnn \ 
J TAPE UNIT n ( 

(omit " ) 

OMIT 

PUNCH 4 (1401 and 1460 systems) 

PUNCH 1 (1440 systems) 

The OUTPUT file is equivalent to 

Fortran file 2. 

LIBRARY 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
< 1301 UNIT n, START nnnnnn, END nnnnnn > 
| TAPE UNIT £ ) 

1311 UNIT0, START 012000, END 013900 
1301 UNIT0, START 012000, END 013900 
TAPE UNIT 1 

1311 UNIT 0, START 012000, END 013900 
1301 UNIT0, START 012000, END 013900 
TAPE UNIT 1 

1311 is assumed if the SYSTEM file 
is assigned to 1311 . 1301 is assumed 
if the SYSTEM file is assigned to 1301 . 
Tape is assumed if the SYSTEM file 
is assigned to tape . 

At execution time (LOADER RUN), 
the LOADER file can be assigned to 
READER n. 

If the MESSAGE, LIST, and WORK5 
files are assigned to a printer, the 
assignment must be to the same printer. 
The WORK1 file is equivalent to 

Fortran file 4. 

The WORK2 file is equivalent to 

Fortran file 5. 

The WORK3 file is equivalent to 

Fortran file 6. 

The WORK4 file is equivalent to 

Fortran file 7. 

The WORK5 file is equivalent to 

Fortran file 8. 

LOADER 

ASGN 

f 1311 UNIT n, START nnnnnn, END nnnnnn ^ 
\ 1301 UNIT n, START nnnnnn, END nnnnnn / 
{TAPE UNIT n \ 

j READER n l 

(omit “ ) 

1311 UNIT0, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

1311 UNIT0, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

WORK1 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
' 1301 UNIT n, START nnnnnn, END nnnnnn > 
(TAPEUNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 006400, END 007200 
1301 UNIT 0, START 006400, END 007200 
TAPE UNIT 4 

WORK2 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
\ 1301 UNIT n, START nnnnnn, END nnnnnn i 

(tape UNIT2. ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 5 

1311 UNIT 0, START 007200, END 008000 
1301 UNIT 0, START 007200, END 008000 
TAPE UNIT 5 

WORK3 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn ) 
^ 1301 UNIT n, START nnnnnn, END nnnnnn > 

(tape unit ^ ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 008000, END 008500 
1301 UNIT 0, START 008000, END 008500 
TAPE UNIT 6 

WORK4 

ASGN 

M311 UNIT n, START nnnnnn, END nnnnnn ) 
*1301 UNIT n, START nnnnnn, END nnnnnn ( 
)TAPE UNIT n ( 

(omit ' 

OMIT 

1311 UNIT 0, START 008500, END 009000 
1301 UNIT 0, START 008500, END 009000 
OMIT for tape systems 

i ne vvuinNO tiie is equivalent to 

Fortran file 9. 

WORK5 

ASGN 

11311 UNIT n, START nnnnnn, END nnnnnn ^ 
\ 1301 UNIT n, START nnnnnn, END nnnnnn f 
<TAPE UNIT n > 

I PRINTER n “ \ 

(omit “ ; 

OMIT 

1311 UNIT 0, START 009000, END 009500 
1301 UNIT 0, START 009000, END 009500 
OMIT for tape systems 


WORK6 

ASGN 

M311 UNIT n, START nnnnnn, END nnnnnn ) 
) 1301 UNIT n, START nnnnnn, END nnnnnn f 
)TAPE UNIT n l 

(OMIT ' 

OMIT 

1311 UNIT 0, START 009500, END 010000 
1301 UNIT 0, START 009500, END 010000 
OMIT for tape systems 



• Figure 26. asgn Card Formats and Assumed Assignments 
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Device Entry and Values of n and nnnnnn 

Remarks 

j ( UNIT n, START nnnnnn, END nnnnnn 

| 1301 j 

n is the number of the disk unit, and can be 0, 1, 2, 3, or 4. 
nnnnnn is a disk address. 

The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORKI and WORK2 Files. If the disk unit is 1311, the START ad¬ 
dress must be a multiple of 200. If the disk unit is 1301, the START 
address must be a multiple of 800. For both 1311 and 1301, the END 
address must be a multiple of 40. 

2. WORK3, WORM, WORK5, and WORK6 Files. For both 1311 and 

1301, the START and END addresses must be multiples of 10. 

3. LIBRARY File. For both 1311 and 1301, the START and END 
addresses must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 

area to an area that does adhere to these rules. 

TAPE UNIT n 

n is the number of the tape unit, and can be 1,2, 3, 4, 5, or 

6. 


READER n 

For 1402, n can be 0, 1, or 2. 

For 1442, n can be 1 or 2. 

For 1402, n. represents the pocket into which the cards are stacked. For 

1442 or 1444, n represents the number of the unit. 

PUNCH n 

For 1402, n can be 0, 4, or 8. 

For 1442, n can be 1 or 2. 

For 1444, n must be 3. 


PRINTER n 
n can be 1 or 2. 

n represents the number of print positions available on the 1403 or 1443. 

For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 

CONSOLE PRINTER 

The console printer must be an IBM 1447 without a buffer feature. 

OMIT 

Select this option when the file is not to be used by the Fortran system. 

The LIST, OUTPUT, LOADER, WORM, WORK5, and WORK6 files can 
be omitted. 


Figure 27. Valid Device Entries 


is a 1440 and the control file is assigned to reader 
1 , the input file must also be assigned to reader 1 . 

MESSAGE and LIST Files. If both the message and 
list files are assigned to a printer, the assignment 
must be identical. For example, if the system is a 
1401 and the message file is assigned to printer 2, 
the list file must also be assigned to printer 2. 

WORK1 , WORK2, and WORK3 Disk Files. With disk 
systems, seek time is the most important factor af¬ 
fecting input/output operations. Therefore, it would 
be expedient for the user with a multi-unit system 


to distribute the Fortran files to all of the units, thus 
making a significant reduction in seek time. 

Because the workI, work2, and work3 files han¬ 
dle large amounts of data, inefficient use of the files 
results in an increase in Fortran time requirements. 
For the benefit of the single disk unit user, workI, 
work2, and work3 are handled in a special way. The 
special way is to assign them to the same area of the 
disk unit as shown in Figure 29. When this is done, 
the System Control Program “splits” each cylinder, 
causing workI to occupy the upper half of each cyl¬ 
inder and work2 to occupy the lower half of each 
cylinder. work3 initially occupies the upper half, 


iSS 

Label 

6 15 

Operation 
16 _ 20 

OPERAND 

21 25 30 35 40 45 50 55 60 

0 1 , 

[SfixmrAHi 


1.30.1. .UNIT. .I.». START, ,0.0.4,0,0.0.) ,E,ND. 0048.00 

0 2 

1 

iiii 

. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 1 i 1 1 1 i 1 1 1 1 1 1 1 1 IIII , , ,1 

m 

1 

_1_. _ 1 1 » 1 


-1-'-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1-1_1_1_1_1_1_1_. ■ » 


Figure 28. Coding for an output asgn Card 
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Building a Fortran System 

After all sets of cards have been labeled and those sets 
of cards not applicable to the user’s system have been 
removed, the user is ready to use the prepared system 
deck to build the Fortran system. 

Figure 35 is a block diagram showing the building 
of a disk-resident system. 

The system unit must be prepared for writing the 
complete system from cards. The user must clear disk 
unit 0 in the move mode from 000000 to 000199, in the 
load mode from 000200 to 000259, in the move mode 
from 000260 to 000299, in the load mode from 000300 
to 006399, and in the move mode from 006400 to 
019979. The Clear Disk Storage Utility program ap¬ 
plicable to the user’s system can be used for this opera¬ 
tion. As header labels are to be deleted, the write- 
address mode switch will initially be set off. 

Figure 36 shows the disk storage allocation on the 
system unit. 

The control cards for the utility program must be 
punched in the following manner. 

For 1311 , 


For 1301, 


Columns Contents 

1-15 M0000000001994=4= 

21-35 L0002000002594=4= 

41-55 M0002600002994=4= 


Columns Contents 

1-15 L0003000063994=4= 

21-35 M0064000199794=4= 


The time required to clear the disk unit in the speci¬ 
fied modes is approximately five minutes. 


Write File-Protected Addresses 

The last card in the section labeled write file protect 
is a control card that is partially prepunched. It is by 
the use of this control card that the limits of the file- 
protected area reserved for the system file in the disk- 
storage unit are supplied. The user must indicate in 
the control card whether the system is to reside on a 
1301 or 1311 disk unit. For both the 1301 and 1311, the 
system must be built on unit 0. In the case of the 1311, 
the system pack can be used on any drive once the 
system has been built. The control card is punched as 
follows: 


Columns Contents 


1-15 M00000000019900 
21-35 L00020000025900 
41-55 M00026000029900 


Columns Contents 

1-15 L00030000639900 

21-35 M00640001997900 


Columns 

Contents 

1-15 

file-protect on (prepunched) 

17-20 

1301 or 1311 

22 

0 (prepunched) 

24-42 

from normal address (prepunched) 

44-49 

002500 (prepunched) 

51-52 

to (prepunched) 

54-59 

006400 (prepunched) 


File 

Mode 

File-Protected 

Sector Range 

SYSTEM File 




Not used 

Move 

No 

000000-000199 


Load 

No 

000200-000259 


Move 

No 

000260-000299 


Load 

No 

000300-002499 

System Control Program 

Load 

Yes 

002500-002904 

Fortran Processor Program 

Load 

Yes 

002905-002979 

Not used 

Load 

Yes 

002980-002999 

System Control Program 

Load 

Yes 

003000-003175 

Fortran Processor Program 

Load 

Yes 

003176-004200 

Area for User's Fortran Object Program Library 

Load 

Yes 

004201-006399 

WORK Files 

Move 

No 

006400-009999 

LOADER File 

Move 

No 

010000-011999 

LIBRARY File 

Move 

No 

012000-013899 


• Figure 36. Disk Storage Allocation 
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After columns 17-20 have been punched by the user, 
the card must be replaced as the last card of the 
section. 

To use the section when the system is to reside on 
1311: 

1. Ready the pack on disk drive 0. 

2. Set the write-address mode switch on. 

3. Set the write-disk switch on. 

4. Set the I/O check stop switch on. 

5. Press check reset and start reset. 

6. Place the write file-protected addresses section in 
the card reader. 

7. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 


Halt Number 
(A-Address Register) 

021 


022 


023 


Meaning 

An invalid disk type is specified in 
the control card. 1301 or 1311 are 
the only valid entries for columns 
17-20 of the control card. When 
the system is restarted by pressing 
start, a read operation is per¬ 
formed. 

An invalid disk unit is specified in 
the control card. The only valid 
entry for column 22 of the control 
card is 0. When the system is re¬ 
started by pressing start, a read 
operation is performed. 

An invalid start address (columns 
44-49) is specified in the control 
card. The start address must be 
002500. When the system is re¬ 
started by pressing start, a read 
operation is performed. 


8. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

9. At the end of the job, set the write-address mode 
switch off. 

To use the deck when the system is to reside on 1301: 

1. Set the write-address mode switch on. 

2. Set the write-disk switch on. 

3. Set the I/O check stop switch on. 

4. Press check reset and start reset. 

5. Place the write file-protected addresses section in 
the card reader. 

6. Load the program. 

a. ibm 1402 Card Read-Punch: Press load. 

b. ibm 1442 Card Reader: Press start on the reader, 
and program load on the console. 

7. When the system attempts to read the last card, 

a. ibm 1402 Card Read-Punch: Press start. 

b. ibm 1442 Card Reader: Press start on the reader. 

8. At the end of the job, set the write-address mode 
switch off. 

The time required to perform this job is approxi¬ 
mately 1 minute. The following halts can occur when 
writing file-protected addresses. 


024 


025 


026 


027 


028 


029 


030 


An invalid end address (columns 
54-59) is specified in the control 
card. The end address must be 
006400. When the system is re¬ 
started by pressing start, a read 
operation is performed. 

Disk unit 0 is not ready. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

The area specified in the control 
card is already file-protected (all 
or in part). If the system is re¬ 
started by pressing start, the en¬ 
tire specified area will be file-pro¬ 
tected and cleared. 

The area specified in the control 
card has neither the “normal” disk 
addresses (000000-?) nor file-pro¬ 
tected addresses. This is a hard 
halt. 

Parity check or wrong-length rec¬ 
ord error occurred on the disk unit 
while writing addresses. When the 
system is restarted by pressing 
start, the disk I/O operation is 
retried. 

Parity check or wrong-length rec¬ 
ord error occurred on the disk unit 
while determining the existing ad¬ 
dressing scheme. This is a hard 
halt. 

End of the job. 


Halt Number 

(A-Address Register) Meaning 

020 Last card condition was sensed be¬ 

fore the control card. The control 
card containing the initial and ter¬ 
minal addresses of the area to be 
file-protected must be the last card 
of the deck. When the system is re¬ 
started by pressing start, a read 
operation is performed. 


System Control Card Build 

The last card in the section labeled card build is a con¬ 
trol card that is partially prepunched. It is by the use 
of this control card that disk residence is determined. 

The user must indicate in the control card whether 
the system is to reside on a 1301 or 1311 disk unit. The 
assumed disk unit number is 0. 
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Input 

Object program in the relocatable format on the LOADER file 

Output 

1. Messages to the machine operator on the MESSAGE file. 

2. Loader diagnostic messages on the LIST file. 

3. Name map on the LIST file. 

Optional Output 

1. Storage print on the LIST file. 

2. Punched-card object program in the absolute format on the OUTPUT file. 

Required User 
Assignments 

None 

Required System 

Control Program 

Control Card 

LOADER RUN 

Required Loader 

Control Card 

SEXECUTION 
$NO EXECUTION 

Loader Output 

Option Control 

Cards 

$ABSOLUTE DECK Tthree-character file name 
$STORAGE PRINT phree-character file name - 
$NO NAME MAP 



Figure 39. Summary of a Normal loader run Job 


Input 

Punched-card object program in the absolute format on the CONTROL file, or object program 
in the absolute format on the SYSTEM file. 

System Control 

Program Control 

Card 

|~user-comments - ] UPDAT three-character phase name, INSERT 
or 

Puser comments^ UPDAT three-character phase name, DELETE 


Note: When the UPDAT INSERT card is used in a tape system, three-character phase name 
is the name of the phase after which the new phase is to be added. 



• Figure 40. Summary of a Normal User-Update Job 


Input 

Object program in the absolute format on the SYSTEM file 

Required User 
Assignments 

The unit(s) referenced by the object program 

Required System 

Control Program 

Control Card 

PRODUCTION RUN three-character phase name 


Figure 41. Summary of a Normal production run Job 
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ASGN Card Formats 

Assumed Assignment 

Remarks 

Label Field 

(Columns 

6-15) 

Operation 

Field 

(Columns 

16-20) 

Operand Field (Columns 21-72) 

Compilation 
(FORTRAN RUN) 

Execution 

(LOADER RUN or PRODUCTION RUN) 


SYSTEM 

ASGN 

( 1311 UNIT n ) 

1301 UNITO [ 

( TAPE UNIT n ) 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

1311 unit: user-assigned 

1301 unit: must be assigned to UNIT 0 

Tape unit: user-assigned 

If tbe system residence is 1311 or 1301, 
the SYSTEM ASGN card is the only re¬ 
quired ASGN card. It must follow the 
Card Boot in a stack of jobs. Any 
other SYSTEM ASGN cards in the 
stack are flagged and bypassed. If 
the user desires that the Fortran system 
use less than the number of core 
storage positions available in the pro¬ 
cessor machine, punch a comma in 
column 32 and 12K or 16K beginning 
in column 34. If the system residence 
is tape and the tape unit is 1, neither 
the Card Boot nor the SYSTEM ASGN 
card is required. (Pressing the TAPE 
LOAD key achieves the same purpose as 
the Card Boot and the SYSTEM ASGN 
card.) If the unit is 2, 3, 4, 5, or 6, 
both the Card Boot and the SYSTEM 
ASGN card are required to start 
systems operations. 

CONTROL 

ASGN 

(READER n \ 

(CONSOLE PRINTER/ 

READER 1 

READER 1 

If the CONTROL file and the INPUT 
file are assigned to the card reader, 
the assignment must be to the same 
card reader. 

MESSAGE 

ASGN 

(PRINTER n ) 

(CONSOLE PRINTER/ 

PRINTER 2 

PRINTER 2 

When the MESSAGE file is assigned to 
the CONSOLE PRINTER, carriage 
control characters used with the 1403 or 
1443 printer may appear in the message. 
If the MESSAGE file and the LIST file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. The 
MESSAGE file is equivalent to Foitran 
file 0. 

LIST 

ASGN 

( PRINTER n ) 

\ 1311 UNIT n, START nnnnnn, END nnnnnn I 
\ 1301 UNIT n, START nnnnnn, END nnnnnn > 
I TAPE UNIT n l 

(OMIT J 

PRI NTER 2 

PRINTER 2 

If the LIST file and the MESSAGE file 
are assigned to the printer, the assign¬ 
ment must be to the same printer. The 
LIST file is equivalent to Fortran 
file 3. 

INPUT 

ASGN 

l READER n 

' 1311 UNIT n, START nnnnnn, END nnnnnn ' 

) 1301 UNIT n, START nnnnnn, END nnnnnn ( 
( TAPE UNIT n ' 

READER 1 

READER 1 

If the INPUT file and the CONTROL 
file are assigned to the reader, the 
assignment must be to the same reader. 
The INPUT file is equivalent to 

Fortran file 1 . 

OUTPUT 

ASGN 

( PUNCH n \ 

» 1311 UNIT n, START nnnnnn, END nnnnnn 1 
< 1301 UNIT n, START nnnnnn, END nnnnnn > 
i TAPE UNIT n ( 

(omit j 

OMIT 

PUNCH 4 (1401 and 1460 systems) 

PUNCH 1 (1440 systems) 

The OUTPUT file is equivalent to 

Fortran file 2. 

LIBRARY 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn i 
\ 1301 UNIT n, START nnnnnn, END nnnnnn > 
( TAPE UNIT n J 

1311 UNITO, START 012000, END 013900 
1301 UNITO, START 012000, END 013900 
TAPE UNIT 1 

1311 UNIT 0, START 012000, END 013900 
1301 UNITO, START 012000, END 013900 
TAPE UNIT 1 

1311 is assumed if the SYSTEM file 
is assigned to 1311. 1301 is assumed 
if the SYSTEM file is assigned to 1301 . 

T-«- :r it,, cn/ctcjui c: I - 

LOADER 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn \ 
\ 1301 UNIT n, START nnnnnn, END nnnnnn / 
< TAPE UNIT n \ 

(READER n ( 

(omit J 

1311 UNITO, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

1311 UNITO, START 010000, END 012000 
1301 UNIT 0, START 010000, END 012000 
TAPE UNIT 3 

lape is assumed it the bYSItM tile 
is assigned to tape. 

At execution time (LOADER RUN), 
the LOADER file can be assigned to 
READER n. 

If the MESSAGE, LIST, and WORK5 

WORK1 

ASGN 

i 1311 UNIT n, START nnnnnn, END nnnnnn ) 
■j 1301 UNIT n, START nnnnnn, END nnnnnn / 
( TAPE UNITn ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 006400, END 007200 
1301 UNIT 0, START 006400, END 007200 
TAPE UNIT 4 

files are assigned to a printer, the 
assignment must be to the same printer. 
The WORK1 file is equivalent to 

Fortran file 4. 

WCRK2 

ASGN 

i 1311 UNIT n, START nnnnnn, END nnnnnn ) 
\ 1301 UNIT n, START nnnnnn, END nnnnnn 
(TAPE UNIT n ) 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 5 

1311 UNIT 0, START 007200, END 008000 
1301 UNIT 0, START 007200, END 008000 
TAPE UNIT 5 

The WORK2 file is equivalent to 

Fortran file 5. 

The WORK3 file is equivalent to 

Fortran file 6. 

WORK3 

ASGN 

( 1311 UNIT n, START nnnnnn, END nnnnnn J 
\ 1301 UNIT n, START nnnnnn, END nnnnnn > 
( TAPE UNIT n \ 

1311 UNIT 0, START 006400, END 009600 
1301 UNIT 0, START 006400, END 009600 
TAPE UNIT 4 

1311 UNIT 0, START 008000, END 008500 
1301 UNIT 0, START 008000, END 008500 
TAPE UNIT 6 

The WORK4 file is equivalent to 

Fortran file 7. 

The WORK5 file is equivalent to 

Fortran file 8. 

WORK4 

ASGN 

(1311 UNIT n, START nnnnnn, END nnnnnn j 
>1301 UNIT n, START nnnnnn, END nnnnnn ( 

)TAPE UNIT n ( 

(omit ) 

OMIT 

1311 UNIT 0, START 008500, END 009000 
1301 UNIT 0, START 008500, END 009000 
OMIT for tape systems 

The WORK6 file is equivalent to 

Fortran file 9. 

WORK5 

ASGN 

^ 131 1 UNIT n_, START nnnnnn, END nnnnnn \ 
11301 UNIT n, START nnnnnn, END nnnnnn f 
< TAPE UNIT n > 

(PRINTER n \ 

(omit ~ ) 

OMIT 

1311 UNIT 0, START 009000, END 009500 
1301 UNIT 0, START 009000, END 009500 
OMIT for tape systems 


WORK6 

ASGN 

l 1311 UNIT n, START nnnnnn, END nnnnnn ) 
7 1301 UNIT n, START nnnnnn, END nnnnnn f 
\ TAPE UNIT n ( 

(OMIT ' 

OMIT 

1311 UNIT 0, START 009500, END 010000 
1301 UNIT 0, START 009500, END 010000 
OMIT for tape systems 



© Figure 42. asgn Card Formats and Assumed Assignments 
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Remarks 

The END address is the address of the next available sector. 

The values of nnnnnn must adhere to the following rules: 

1. WORK1 and WORK2 Files. If the disk unit is 1311, the START ad¬ 
dress must be a multiple of 200. If the disk unit is 1301, the START 
address must be a multiple of 800. For both 131 1 and 1301, the END 
address must be a multiple of 40. 

2. WORK3, WORK4, WORK5, and WORK6 Files. For both 1311 and 
1301, the START and END addresses must be multiples of 10. 

3. LIBRARY File. For both 1311 and 1301, the START and END 
addresses must be multiples of 20. 

If these rules are violated, the system automatically narrows in the disk 

area to an area that does adhere to these rules. 


For 1402, n^ represents the pocket into which the cards are stacked. For 
1442 or 1444, ri represents the number of the unit. 


n represents the number of print positions available on the 1403 or 1443. 
For 1403, a 1 indicates 100 positions and a 2 indicates 132 positions. 

For 1443, a 1 indicates 120 positions and a 2 indicates 144 positions. 

The console printer must be an IBM 1447 without a buffer feature. 

Select this option when the file is not to be used by the Fortran system. 
The LIST, OUTPUT, LOADER, WORK4, WORK5, and WORK6 files can 
be omitted. 


Figure 43. Valid Device Entries 
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Name of Card 

Label Field 
(Columns 6-15) 

Operation Field (Columns 16-20) 

Operand Field (Columns 21-72) 

Copy (Tape) 


COPY 

^Any message and/or identification^ 

Halt 


HALT 

QAny message and/or identification^ 

Initialize 

FORTRAN 

1 NIT 

J^Any message and/or commentj 

Note 


NOTE 

Any message and/or instruction 

Pause 


PAUSE 

Any message and/or instruction 

— 

Run 

FORTRAN 

RUN 


LOADER 

RUN 


PRODUCTION 

RUN 

Three-character phase name 

LIBRARY 

RUN 


Update * 

[User comments] 

UPDAT 

Three-character phase name, INSERT 

[Tjser comments^] 

UPDAT 

Three-character phase name, DELETE 

Cards associated 

with ** 

LIBRARY RUN 

cards 

*** 

*** 

**** 

LIBRARY 

RUN 



BUILD 

nnn, where nnn specifies a name-table length that differs from 030. 


LIST 

HEADERS 

name 

LIST 



LIST 



INSER 


name 

DELET 



COPY 



END 



* When the UPDAT INSERT card is used in a tape system, three-character phase name is the name of the phase after which the new phase is to be added. 
** This option applies only to libraries that reside on disk. 


*** name is the six-character name of a subprogram. 

**** This option applies only to libraries that reside on tape. 

• Figure 44. System Control Cards 
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Type of Control Card 

Format - Columns 1 - ? 

Remarks 

Compiler option control cards 

$INTEGER SIZE = nn 

01^ nn ^ 20; assumed size is 05. 

$REAL SIZE = nn 

02^ nn — 20; assumed size is 08. 

$OBJECT MACHINE SIZE = nnnnn 

11999 nnnnn ^ 15999; assumed size is 11999. 

$MULTIPLY DIVIDE 

Multiply/divide feature assumed to be present on 
object machine. 

$NO MULTIPLY DIVIDE 

$ PHASE NAME = name 

name is 3 alphameric characters; assumed name 
is ///. 

Compiler output option control cards 

$ LIST 

Source program listing is assumed. 

$NO LIST 

$ NAME DICTIONARY 

Name dictionary is assumed. 

$NO NAME DICTIONARY 

$SEQUENCE NUMBER DICTIONARY 

Sequence number dictionary is assumed. 

$NO SEQUENCE NUMBER DICTIONARY 

$DICTIONARY 

Both the name and sequence number dictionaries 
are assumed. 

$NO DICTIONARY 

Loader output option control cards * 

* 

$ABSOLUTE DECK [Three-character file name J 

No absolute deck is assumed. If an absolute deck 
is specified, OUTPUT file is assumed. 

$NO ABSOLUTE DECK 

$STORAGE PRINT jlhree-character file namej 

No storage print is assumed. If a storage print is 
specified, LIST file is assumed. The storage print 
uses a print line of 120 positions. 

$NO STORAGE PRINT 

$NAME MAP [Three-character file namej 

Name map is assumed output on the LIST file. 

$NO NAME MAP 

$INCLUDE LDR 

three-character main program name 
or six-character subprogram name 


1 — i — 6 

The $ INCLUDE card is punched as follows. 

Columns Contents 

1-8 $INCLUDE 

16-18 LDR or INP or WK| 

21-23 main program name 

or or 

21-26 subprogram name 

$INCLUDE INP 

three-character main program name 
or six-character subprogram name __ 


$INCLUDE WKi^ 

three-character main program name 
or six-character subprogram name _ 


$EXECUTION 

One of these cards must be supplied by the user as 
the last card of a LOADER RUN. 

$NO EXECUTION 


* When used, [ Three-character file nameT ] appears in columns 21-23 of the Loader output option control card. 




• Figure 45. Fortran Option Control Cards 
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Appendix II 


The name, identification, and function of each phase 
in the Fortran system are given in the following sec¬ 
tions. 


System Control Program — Disk Resident 

This section describes the phases that make up the 
System Control Program for disk-resident systems. 


Phase Name ID 

SYB 50S01 

FHW 50S11 

IOP 50S21 


suo 

50S31 

SU1 

50S41 

SU2 

50S51 

SU3 

50S61 

SU4 

50S71 

SU5 

50S81 

SU6 

50S91 


OP1 

50SA1 

OP2 

50SB1 

DET 

50SC1 


PIT 50SD1 


Function 

1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

Contains the assumed assign¬ 
ments for the logical files. 

1. Reads or writes disk in the 
move or load mode. The mode 
depends on the processor 
operation. 

2. Determines whether the user 
has exceeded specified file 
limits. 

3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 


Reads in the specified phase 
from disk storage and branches 
to the specified phase. 


Initializes the specified area with 
a twenty-character control word. 
This control word is obtained 
from the temporary file-hardware 
table. 

Reads the control file until a 
control card (halt, pause, note, 
INIT, UPDAT, RUN, Or ASGN) 4 is 

sensed. When a control card is 
sensed, the determiner causes a 
halt or pauses, prints out a note, 
calls the update determiner, calls 
the selector, or calls the con¬ 
figurator, depending upon the 
type of card. 

Contains the locations of the 
phases in the system. 


ase Name 

ID 

Function 

CFG 

50SE1 

Updates the temporary file- 
hardware table as specified by 
the asgn card(s). 

SEL 

50SF1 

Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 

UPD 

50SG1 

Determines the type of update 
operation being performed, and 
calls in that particular updater. 

UIN 

50SH1 

Places a new phase on the 
system file in any available 
location. 

UHD 

50SI1 

Updates the header of a phase 
that is in the system file, as 
specified by a header card. 

UDL 

50SJ1 

Deletes a phase from the 
system file. 

UPT 

50SK1 

Patches a part of a phase on 
the system file. 

DMP 

DM2 

50SL1 / 
50SM1 { 

Prints storage on the list file. 

F/P 

F/2 

F/3 

50SN1 ) 
50SO1 > 
50SP1 ) 

Prints all work files on the list 
file. 

MNE 

2XB 

4XB 

6XB 

8XB 

AUMNE'; 

EX2XB 

EX4XB 

EX6XB 

EX8XB 

1 

> These phases are used by the 
^ Autocoder Assembler Program. 


System Control Program — Tape Resident 


This section describes the phases that make up the Sys¬ 
tem Control Program for tape-resident systems. 


Phase Name ID 

SYB 50S01 


IOP 50S21 


Function 

1. Determines machine size. 

2. Initializes switches according 
to the type of reader, punch, 
and printer (serial or parallel). 

3. Reads in the I/O package. 

4. Calls the determiner. 

1. Contains the assumed assign¬ 
ments for the logical files. 

2. Reads or writes tape in the 
move or load mode. The mode 
depends on the processor 
operation. 
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Phase Name ID 


DET 


50SC1 


UPD 


50SH1 


Function 

3. Branches to the processor 
phase, or branches to the 
end-of-file routine if the 
end-of-file has been sensed. 

4. Reads in the specified phase 
from the system tape and 
branches to the specified 
phase. 

5. Initializes the specified area 
with a twenty-character 
control word. This control 
word is obtained from 
assumed assignments for 
logical files. 

1. Reads the control file until a 
control card (halt, pause, 

COPY, NOTE, IN IT, UPDAT, RUN, 

or asgn) is sensed. When a 
control card is sensed, the 
determiner causes a halt, or 
pauses, or prints out a note. 

2. Updates assumed file assign¬ 
ments as specified by the asgn 
card(s). 

3. Initializes the files used by the 
processor being called, and 
calls the first phase of that 
processor. 

4. Determines the type of update 
operation being performed, 
and calls the updater. 

1. Places a new phase on the 
system file in any available 
location. 

2. Updates the header of a 
phase that is in the system 
file, as specified by a header 
card. 

3. Deletes a phase from the 

SYSTEM file. 

4. Patches a part of a phase on 
the system file. 


Phase Name ID 


10F 


10FIV 


20F 


20FIV 


21F 


21FIV 


DMP 

DM2 

F/P 


50SL1 Prints storage on the list file. 
50SM1 

50SN1 Prints all work files on the list 
file. 


Fortran Processor Program 

This section describes the phases that make up the 
Fortran Processor Program. 

Phase Name ID Function 

00F OOFIV 1. Reads compiler option control 

cards, if any, from the input 
file and outputs them on the 
list file. 

2. Initializes deblocking routines 
(getex and putex). 
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Function 

3. Sets up an area in upper core 
storage for getex and putex 
buffers. 

4. Passes the first source-program 
statement to phase 10F. 

1. Reads source statements from 
input file until the end card 
is sensed. 

2. Assigns sequence numbers to 
all source statements except 
comments statements. 

3. Outputs the source program 
listing on the list file, if the 
option is exercised. 

4. Replaces key words (common, 

DIMENSION, GO TO, etc.) with 
internal three-character 
symbols. Replaces remaining 
portion of each statement with 
internal symbols. 

5. Replaces unrecognizable 
statements with diagnostic 
codes. 

6. Outputs nonexecutable and 
I/O name lists on work2 
and executable statements on 
workI . 

7. Calls phase 20F, 25F, or 30F, 
depending on type of source 
statements. 

1. Extracts dimension, common, 

EQUIVALENCE, FUNCTION, 
SUBROUTINE, EXTERNAL, and 

type statements from work2. 

2. Builds a name-attribute table 
in upper core storage. 

1. Uses name-attribute table 
built by phase 20F and allo¬ 
cates object-time storage for 
common variables and appli¬ 
cable equivalence definitions. 

2. Allocates storage for normal 
variables with equivalence or 
dimension definitions, and 
adds this information to the 
name-attribute table. No 
storage is allocated unless the 
complete set of variable 
attributes has been 
determined. 

3. Compresses the name- 
attribute table, deleting 
information no longer 
required. 

4. Outputs a macro reflecting 
ordering or various variable 
types within common on the 
putex file. 

5. Calls phase 25F, if required. 
Otherwise, phase 30F is called. 
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Phase Name ID 

25F 25FIV 


30F 30FIV 


34F 34FIV 


Function 

1. Extracts format, data, and 
define file statements and 
I/O name lists from work2. 

2. Replaces names in data or 
I/O name lists and source or 
generated constants from I/O 
name lists with object-time 
addresses. 

3. Generates sequence of macros 
with associated parameters on 
the putex file for each state¬ 
ment. An increased object-time 
character count is included 
with each sequence number 
or label assignment macro 
reflecting the total number of 
object-time characters since 
the last sequence number or 
label assignment macro. 

4. Begins label table for format 
statement numbers. 

5. Continues building name- 
attribute table and continues 
allocating storage as required. 

1. Extracts executable statements 
from the getex file, which can 
contain macros from phase 
25F. 

2. Continues building name- 
attribute table and label 
table, with allocation accom¬ 
plished when required. An 
address is substituted for a 
name and an internal repre¬ 
sentation is substituted for a 
label. 

3. Generates macros with appro¬ 
priate parameters for all exe¬ 
cutable statements, except for 
expressions that are passed to 
phase 40F. Subscripted vari¬ 
ables are processed as in phase 
25F, generating macros even 
when they are part of an 
expression. The object-time 
incremental character count is 
included with sequence num¬ 
ber or label assignment 
macros. 

4. If source label and name table 
overflows, subsequent source 
labels and/or names are 
passed in expanded form for 
replacement by phase 34F. 

Phase 34F is an optional phase. 
When required, it completes the 
storage allocation for normal 
variables. It replaces names with 
addresses, and source labels with 
internal label notation. 


Phase Name ID 


36F 36FIV 


40F 40FIV 


45F 45FIV 


35F 


35FIV 

1. Outputs a name dictionary on 
the list file, if requested. 

53F 

53FIV 


2. Outputs constants as macros 
in the name table on the 
putex file. 




Function 

3. Allocates storage in upper core 
storage for a source label 
table and a generated label 
table which will eventually 
contain actual addresses. 

4. Calls phase 36F if compiling 
a subprogram. 

When a subprogram is being 
compiled, macros are generated 
on the putex file to represent the 
necessary processing when the 
subprogram is called. A “pro¬ 
logue” is generated; also, an 
“epilogue” is generated which 
represents any necessary resetting 
of values before returning control 
to the calling program. If 
variable dimensions have been 
used, a pass on the getex file is 
required when building the 
prologue name to indicate addi¬ 
tional object-time calculations. 

1. Extracts expressions from the 
getex file that were partially 
processed by phase 30F. The 
expressions are reordered ac¬ 
cording to implied operator 
precedence and parentheses, 
and macros are generated on 
the putex file. 

2. Extracts label assignments and 
sequence number macros 
from the getex file. For a 
sequence number, the incre¬ 
mental character count is 
replaced with an actual 
accumulative character count, 
and the macro is passed. 
Label assignment macros are 
not passed further. Actual 
addresses for source labels 
and generated labels are en¬ 
tered into the label table and 
generated label table. 

3. Passes control to phase 45F if 
a data statement is sensed. 

1. Extracts data name list 
macro sequences from the 
getex file. The macros are 
expanded into object code 
in a phase work area. The 
code references some included 
subroutines, data literal list 
macros are matched with 
object-time addresses and 
passed as regular literal 
macros. 

2. Continues label assignments 
and sequence number proc¬ 
essing as in phase 40F. 

1. This phase is called only if 
diagnostic codes were output 
by a previous phase. The 
codes are extracted and 
translated into diagnostic 
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Phase "Name ID Function 


Phase Name ID Function 


70F 


messages that are output on 
the list file. These errors can 
be warnings, or severe errors 
that would prevent a success¬ 
ful compilation. 

2. If the messages were merely 
warnings, phase 70F is called. 

3. If the messages indicated er¬ 
rors that would prevent a 
successful compilation, the 
system halts, then control 
reverts to the det (determiner) 
phase of the System Control 
Program, which will read a 
control card from the control 
file. 


78F 


79F 


80F 


70FIV Generates object code in the re¬ 
locatable format from internal 
macros and associated param¬ 
eters. Addresses are substituted 
for label references. A header 
card image is always generated 
first, and a trailer card image is 
always generated as the last card. 

Between these two card images 

will be relocatable and external 

name cards to indicate object 

characters to be loaded and inter- 90F 

program references. Card images 

appear on the loader and/or 

output files, depending on actual 

device assignments. Control is 

returned to the det (determiner) 91F 

phase of the System Control 

Program. 


78FIV Builds, updates, or lists the 

Fortran relocatable subprogram 
library. 

79FIV 1. Reads loader control cards 
from the control file. 

2. Relocates and loads a main 
program and required sub¬ 
programs, possibly from the 
subprogram library. 

3. Establishes interprogram com¬ 
munication by replacing ex¬ 
ternal references by actual 
addresses. 

80FIV Produces an external name map 
on the list file, if requested. 

81FIV Produces storage print of the 

loaded program on the list file, 
if requested. The storage print 
does not include the standard 

overlay package. 

82FIV Produces an absolute deck on the 

output file, if requested. 

90FIV Standard overlay package for 

1401 or 1460, including arith¬ 
metic interpreter and standard 
I/O routines. 

91FIV Standard overlay package for 

1440, including arithmetic inter¬ 
preter and standard I/O routines. 
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Appendix III 


Building a System that Contains 
Fortran and Autocoder 

In this section, the Autocoder system refers to 1401/ 
1440/1460 Autocoder (on Disk), program number 1401- 
AU-008. The specifications and operating procedures 
for this program are contained in the Systems Refer¬ 
ence Library publications, Autocoder (on Disk) Lan¬ 
guage Specifications for IBM 1401, 1440, and 1460, 
Form C24-3258 and Autocoder (on Disk) Program 
Specifications and Operating Procedures for IBM 1401, 
1440, and 1460, Form C24-3259. 

File Considerations 

Because the System Control Program is the controlling 
element of the Autocoder system as well as the Fortran 
system, it is possible to build a system file that con¬ 
tains both the Fortran Processor Program and the Au¬ 
tocoder Assembler Program. 

Figure 46 shows the disk-storage allocation on the 
system unit when both Fortran and Autocoder are 
present. 

The user should consult the referenced Autocoder 
publications for a description of the Autocoder system. 


Two differences exist when the Autocoder system re¬ 
sides alone on a disk unit as opposed to when it resides 
on a disk unit that also contains the Fortran system. 
These differences are: 

1. The assumed assignment of the Autocoder library 
file. 

2. The assumed assignments of the Autocoder work 
files. 

Figure 47 gives the assumed assignments of the Auto¬ 
coder library file and the Autocoder work files when 
Autocoder and Fortran reside on the same system file. 
Do not consider the assumed assignments for these 
files as given in the Autocoder operating procedures 
publication. 

Note also that Autocoder uses a maximum of three 
work files, whereas six work files are defined for For¬ 
tran. Further, the user should note that Autocoder de¬ 
fines a coreload file (not applicable to Fortran), and 
Fortran defines a loader file (not applicable to Auto¬ 
coder). The assumed assignments for the remaining 
logical files (control, message, list, input, and out¬ 
put) are the same for both the Autocoder and the For¬ 
tran systems. 


File 

Mode 

File-Pro tec ted 

Sector Range 

SYSTEM File 




Autocoder Preprocessor Work Area 

Move 

No 

000000-000089 

Autocoder Preprocessor 

Move 

No 

000090-000199 

Autocoder Preprocessor 

Load 

No 

000200-000259 

Autocoder Preprocessor 

Move 

No 

000260-000299 

Autocoder Preprocessor 

Load 

No 

000300-000899 

Not Used 

Load 

No 

000900-002499 

System Control Program 

Load 

Yes 

002500-002904 

Fortran Processor Program 

Load 

Yes 

002905-002979 

Not Used 

Load 

Yes 

002980-002999 

System Control Program 

Load 

Yes 

003000-003175 

Fortran Processor Program 

Load 

Yes 

003176-004200 

Autocoder Assembler Program 

Load 

Yes 

004201-005529 

Area for User's Fortran Object Program Library 

Load 

Yes 

005530-006399 

WORK Files 

Move 

No 

006400-009999 

LOADER File (Fortran only. This area is used by Autocoder as a continuation 

Move 

No 

010000-011999 

of the WORK files.) 




LIBRARY File (Fortran) 

Move 

No 

012000-013899 

LIBRARY File (Autocoder) 

Move 

No 

013900-019979 


• Figure 46. Disk Storage Allocation 
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